Регистрация
Всенорм1111
10.10.2022 18:02
Информатика
Есть ответ 👍

Надо написать программу

292
316
Посмотреть ответы 1

Ответы на вопрос:

Айгульнафис
Айгульнафис
4,7(65 оценок)
Var  n, k, i: integer; begin  k : = 1;   for i : = 1 to 4 do  begin    read(n);     if (n > = 3) and (n < = 9) then      k : = k * n;   end;   if k = 1 then writeln(-1)  else writeln(k); end.

Популярно: Информатика