Напишите программу на паскале, которая вводит последовательность - вопрос №8875495 от DayanaMoon2406 15.02.2020 22:40

Question

Информатика: Напишите программу на паскале, которая вводит последовательность целых чисел, заканчивающихся нулем, и вычисляет их произведение.

DayanaMoon2406 · Answer

Var
a, b, c, k: integer;begin
c := 1;
Writeln('Введите количество чисел');
readln(b);
Writeln('Введите число');
for k := 1 to b do
begin
    readln(a);
    if a mod 10 = 0 then
      c := c * a;
end;
Writeln('Произведение чисел = ', c);
end.