
Написать две программы (через While и через Repeat): пользователь вводит с клавиатуры натуральные
числа. Ввод чисел заканчивается, когда пользователь вводит ноль (0). Программа подсчитывает и выводит на экран количество введённых пользователем чисел. (0 - не считается - это как указание на окончание ввода).

Ответы на вопрос

Ответ:
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.
Объяснение:
Думаю я смог помочь?!
Это программы на Паскаль



#include <iostream>
using ll = long long;
using ld = long double;
using namespace std;
signed main() {
ll ans = 0;
while(true){
ll x;
cin >> x;
if(x == 0)
break;
ans++;
}
cout << ans;
}



Программа через цикл While:
pythoncount = 0
while True:
num = int(input("Введите число (для завершения введите 0): "))
if num == 0:
break
count += 1
print("Количество введенных чисел:", count)
Программа через цикл Repeat:
pythoncount = 0
repeat
num = int(input("Введите число (для завершения введите 0): "))
if num == 0 then
exit repeat
count += 1
end repeat
print("Количество введенных чисел:", count)
Оба варианта программы работают по схожему принципу. Они используют бесконечный цикл (while True или repeat) для непрерывного ввода чисел пользователем. Если пользователь вводит 0, цикл прерывается (с помощью break или exit repeat). Внутри цикла увеличивается счетчик count на единицу. По окончании цикла выводится количество введенных чисел.


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili