Программа получает на вход последовательность целых - вопрос №15690461 от Batman89 04.11.2020 22:56

Question

Информатика: Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке. Последовательность завершается числом 0, при считывании которого программа должна закончить свою работу. Числа, следующие за числом 0, считывать не нужно. найти количество элементов последовательности больших 4

Batman89 · Answer

var a,count:integer; begin  repeat    readln(a);    if a 4 then    inc(count);  until  a = 0;  writeln;  writeln(count);end.Объяснение:...