⇢ ЛМ
Лёха Момотов
Помогите написать программу в Паскале abc.
Даны натуральные числа от 1 до 20. Найти произведение только тех чисел, которые делятся на 3.
ЕЕ
Евгения Енот
var i,y:integer;
begin
y:=1;
for i:=1 to 20 do if i mod 3 = 0 then y:=y*i;
end
write y.
АВ
Анастасия Веселова
writeln( 3*6*9*12*15*18 );
Похожие вопросы