Информатика, опубликовано 2018-08-22 22:27:28 by Гость

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

Ответ оставил Гость

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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.