Журналист
Зенон 2 ноября 2019 в 12:38

ПАСКАЛЬ, СОСТАВИТЬ ПРОГРАММУ:
Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.

Program kek;var a, i: Integer;begin  repeat    i += 1;    readln(a);  until a = 0;  writeln(i - 1);end.
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте