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