Блог учителя Информатики

Решение задачи ExamBegin16


Условие задачи:

На вход подается набор целых чисел, содержащий одно или более ненулевых чисел и завершающийся числом 0; каждое число располагается на новой строке. Вывести сумму всех чисел из исходного набора.


uses PT4Exam;

var
  a, sum: integer;

begin
  Task('ExamBegin16');
  sum := 0;
  ReadLn(a);
  while a <> 0 do
  begin
    sum := sum + a;
    Readln(a);  
  end;
  WriteLn(sum);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий