Водится положительное число прекратить ввод когда сумма введёных чисел превысит 100
Водится положительное число прекратить ввод когда сумма введёных чисел превысит 100
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var ch,s:integer;
begin
s:=0;
while s < 101 do
begin
readln(ch);
if ch > 0 then
s:=s+ch; end;
end.
Не нашли ответ?
Похожие вопросы