С клавиатуры вводятся любые 50 чисел найти сумму чисел, которые делятся на 5.

1

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

2013-02-27T18:00:20+04:00

Program pr;
uses crt;
Var s:real;
    a,i:integer;
Begin
s:=0;
Writeln('Введите 50 чисел');
for i:=1 to 50 do
               Begin
               readln(a);
               if (a mod 5=0) then s:=s+a;
               end;
Writeln('s=',s);
readln;
end.