Напишите пожалуйста программу в паскале, что бы суммировало числа от 1 до 50 которые заканчиваются на три.

2

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

  • Tlalok
  • почетный грамотей
2013-03-31T22:10:03+04:00

var

  i, summ:integer;

begin

  for i := 1 to 50 do

    if i mod 10 = 3 then

      summ := summ + i;

  writeln('Summ = ', summ);

end.

2013-03-31T22:58:42+04:00

var

s,i:integer;

begin

for i := 1 to 50 do begin

if i mod 10 = 3 then

s := s+i;

end;

writeln(s);

end.