Регистрация
sking09
18.04.2022 04:29
Информатика
Есть ответ 👍

Соч тжб дайте мне очень нодо

118
210
Посмотреть ответы 1

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

mariyayakovleva1
mariyayakovleva1
4,4(59 оценок)

ответ:

program product;

var

  i, x, p: integer;

begin

  p : = 1;

  for i : = 1 to 6 do

  begin

    read(x);

    if x < > 0 then

      p : = p * x;

  end;

  writeln(p);

end.

объяснение:

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