ПАСКАЛЬ, СОСТАВИТЬ ПРОГРАММУ:
Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.
Ответы
Ответ дал:
0
program kek;var a, i: Integer;begin repeat i += 1; readln(a); until a = 0; writeln(i - 1);end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад