Составить программу в pascal. 1. в последовательности чисел подсчитать произведение чисел, кратных 3.

olgagolos olgagolos    2   19.06.2019 23:10    12

Ответы
ewvyevs ewvyevs  16.07.2020 01:15
Var x, sum: integer;
begin
  sum := 1;
  writeln('Введите последовтельность чисел.', #10, '0 - остановить программу, получить результат.');
  repeat
    readln(x);
    if(x mod 3 = 0)  and (x <> 0) then sum := sum * x;
  until(x = 0);
writeln('Произведение числе кратных 3: ', sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика