Даны 10 всех чисел , отыскать творенье только тех , которые

Даны 10 любых чисел , найти творенье только тех , которые лежат в спектре от 20 до 40

Задать свой вопрос
1 ответ
Program probzvedenbe;
Var
a, b, c: integer;
Begin
c := 1;
for b:=0 to 9 do
begin
readln (a);
if (a gt;= 20) and (a lt;= 40) then
c := c * a;
end;
writeln(Произведение введенных числе, находящихся в диапазоне от 20 до 40 одинаково , c);
readln;
End.

(Программа испытана в PascalABC)
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт