Напишите программу, которая считает сумму вводимых чисел до первого отрицательного (Паскаль)

Напишите программку, которая считает сумму вводимых чисел до первого отрицательного (Паскаль)

Задать свой вопрос
1 ответ
Program n1;
var sum,a: integer;
begin
readln(a);
sum:=0;
while agt;=0 do
begin
sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
Arsenij Gerke
Спасибо))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт