Программа получает на вход последовательность целых - вопрос №10912782 от evasoksoksok 16.07.2021 15:40

Question

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

evasoksoksok · Answer

(PascalABC)var i,cnt: integer; begin i:=-1; cnt:=0; while (i 0) do  begin  write( Введите число: );  readln(i);  cnt:= cnt + 1;  end; writeln( Количество чисел в последовательности равно ,cnt); end....