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

Egor456803 Egor456803    2   05.12.2021 18:14    0

Ответы
milakaty milakaty  05.12.2021 18:20

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика