Запросить 200 чисел, вычислить произведения чисел, которые не попадают в отрезок от -100 до 100
Ответы на вопрос
Ответил Lenofag
0
program sdasd;
var a, i, otv:integer;
begin
otv:= 1;
for i:= 1 to 200 do
begin
readln(a);
if (a < -100) and (a > 100) do otv:= otv * a;
end;
writeln(otv);
end.
var a, i, otv:integer;
begin
otv:= 1;
for i:= 1 to 200 do
begin
readln(a);
if (a < -100) and (a > 100) do otv:= otv * a;
end;
writeln(otv);
end.
Новые вопросы
Английский язык,
2 года назад
География,
2 года назад
География,
8 лет назад
Литература,
8 лет назад
Математика,
9 лет назад