Задача: Напечатать и подсчитать сумму всех четных чисел от 10 до 30.

2

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

2013-11-29T10:36:57+04:00
10,12.14,16,18,20,22,24,26,28,30:общее количество 11
Чувак, это понятно, но нужно это напечатать в турбо паскаль
2013-11-29T11:54:17+04:00
var
sum,i: integer;
begin
write('Чётные числа от 10 до 30: ');
for i:= 10 to 30 do
 if i mod 2 = 0 then
  begin
  write(i:4);
  sum:=sum+i;
  end;
writeln;
writeln('Их сумма = ',sum);
end.