Написать программу, которая в последовательности натуральных чисел находит количество чисел, превосходящих 100. на вход программы натуральные числа, не превосходящие 1000, количество их неизвестно и не превышает 3000. ввод чисел прекращается вводом отрицательного числа (это число в последовательность не входит). программа должна вывести только одно число – количество чисел, превосходящих 100.

romanovegorka6 romanovegorka6    2   28.06.2019 10:20    1

Ответы
szhanibekov szhanibekov  22.07.2020 17:15
Var n, s : integer;
begin
s := 0;
while 2 * 2 <> 5 do begin
readln(n);
if n < 0 then break;
if n > 100 then s := s + 1;
end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика