Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода значения, которое больше 100 Цикл Until, Pascal
Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода значения, которое больше 100
Цикл Until, Pascal
Гость
Ответ(ы) на вопрос:
Гостьvar
s, x: integer;
begin
s := 0;
repeat
readln(x);
if x <= 100 then
s := s + x;
until x > 100;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы