Question

Помогите!! Даю 100 баллов! Напишите решение задачи в паскале: найти произведение элементов кратных двум в последовательности 5,10,15,20,25,30. (до 30)

Answer 1

Ответ:

program test;

var a,p:integer;

begin

p:=1;

a:=5;

repeat

if a mod 2 = 0 then p:=p*a;

a:=a+5

until a>30;

writeln (p)

end.