Написать две программы (через While и через Repeat): пользователь вводит с клавиатуры натуральные числа. Ввод чисел заканчивается, когда пользователь вводит ноль (0). Программа подсчитывает и выводит на экран количество введённых пользователем чисел. (0 - не считается - это как указание на окончание ввода).
More Questions From This User See All
Answers & Comments
Ответ:
Var
A: integer;
Begin
A:=1; // эта строчка добавлена так как если не задать значение оно будет равно 0
While A<>0 do Readln(A);
End.
Var
A: integer;
Begin
Repeat
Readln(A);
Until A<>0;
End.
Объяснение:
Думаю я смог помочь?!
Это программы на Паскаль