С клавиатурыы вводится 15 чисел.(от 1)
Найти ссумы всех чисел которые меньше 30
Pascal

1

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

  • Tlalok
  • почетный грамотей
2013-05-22T13:49:56+04:00

const

  n = 15;

var

  i, summ, c:integer;

begin

  summ := 0;

  for i := 1 to n do

  begin

    write('Введите число ');

    readln(c);

    if c < 30 then

      summ := summ + c;

  end;

  writeln('Сумма чисел < 30 = ', summ);

end.