25баллов! Составить программу, которая просит вводить отрицательные числа, считает сумму введённых чисел. При вводе положительного числа программа заканчивает работу с выдачей сообщения «Работа завершена». ПАСКАЛЬ
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program Hello;
var a, i:integer;
begin
while a <= 0 do
begin
Writeln ('Введите отрицательное число: ');
Readln (a);
if a > 0 then begin break;
end;
i:= i + a;
end;
Writeln (i);
end.