Question

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

Answer 1

Ответ:

Program p1;

Var a, i, n, k: integer;

Begin

Write('Введите количество чисел последовательности: ');  

readln(n);

k:=1;

For i:=1 to n do begin

readln (a);

if (a mod 10 =5) then k:=k*a;

end;

Writeln('Произведение чисел оканчивающихся на 5 - ',k);

End.