Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.