Считывать числа, пока не нажмут клавишу ввода

Bringoff · Регистрация: 03.11.2012

Author24 — интернет-сервис помощи студентам

На стандартном потоке ввода задаётся последовательность целых чисел. Каждое число последовательности не меньше -20000000 и не больше 20000000. Всего последовательность состоит не более чем из 40 чисел. Последовательность завершается признаком конца ввода. На стандартный поток вывода напечатайте сумму этих чисел.

Не пойму, почему этот код не пашет

Pascal

program AB;
 uses crt;
 var
  a,b:integer;
  ch:char;
   begin
    a:=0;
    b:=0;
    while (ReadKey<>#13) do
     begin
      Read(b);
      a:=a+b;
    end;
    Writeln(a);
   end.

Добавлено через 4 часа 53 минуты
Эмм, так я жду ответа на поставленный мною вопрос...

03.12.2012, 16:29

while not seekeof do пока не конец файла
или
while not seekeoln пока не конец строки
это если с файлами работать

Trojan_de
	03.12.2012, 16:29	2
	while not seekeof do пока не конец файла или while not seekeoln пока не конец строки это если с файлами работать