Паскаль. написать программу которая запрашивает ряд чисел и считает их сумму. количество чисел не ограничено. при нажатии цифры "1" - ввод чисел прекращается.
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Varnumber: integer;
sum: integer;
begin
repeat
write('number = ');
readln(number);
sum := sum + number;
until number = 1;
writeln('Сумма = ', sum);
end.