Найдите произведение всех чисел от a до b , кратные 4 Подскажите пж

0 голосов
22 просмотров

Найдите произведение всех чисел от a до b , кратные 4
Подскажите пж


Информатика (183 баллов) | 22 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(660 баллов)