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

#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;

}

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.

Объяснение:

Думаю я смог

Это программы на Паскаль