Нужно составить программу на Паскале циклом for
Задание: Даны 100 целых чисел, записанных последовательно, нужно найти сумму тех из них, которые кратны 5

1

Ответы и объяснения

2014-02-04T22:59:00+04:00
Program abc;
var a,x:integer;
begin
x:=0;
for a:=1 to 100 do
if a mod 5=0 then
x:=x+a;
writeln(x);
end.