profile
Опубликовано 5 лет назад по предмету Информатика от pirov1996

с клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти произведение чисел из введенной последовательности кратных пяти

  1. Ответ
    Ответ дан HRAshton
    var
      x, s: integer;

    begin
      s := 1;
      repeat
        readln(x);
        s *= (x = 0 ? 1 : x);
      until (x = 0);
      writeln(s);
    end.
Самые новые вопросы