Question

Написать задачу по информатике найти сумму количество и произведение кратных 5 .где 1<=x<=100

Answer 1

Var a,b,c,d:integer;
begin
b:=0;
c:=0;
d:=1;
for a:=1 to 100 do begin
if (a mod 5 = 0) then b:=b+1;
if (a mod 5 = 0) then c:=a+c;
if (a mod 5 = 0) then d:=a*d;
end;
writeln('количество чисел делящихся на 5 ==> ',b);
writeln('сумма чисел делящихся на 5 ==> ',c);
writeln('произведение чисел делящихся на 5 ==> ',d);
end.