Лидия
5 год назад
найдите произведение всех чисел от a до b , кратные 4Подскажите пж
ОТВЕТЫ
Yakov
Oct 24, 2020
begin
var pr:=1;
var a:integer:=readlninteger('Введите а:');
var b:integer:=readlninteger('Введите b:');
for a:=a to b do
if (a mod 4 =0) then pr*=a;
println(pr);
end.
var pr:=1;
var a:integer:=readlninteger('Введите а:');
var b:integer:=readlninteger('Введите b:');
for a:=a to b do
if (a mod 4 =0) then pr*=a;
println(pr);
end.
669
Смежные вопросы:
