ПОМОГИТЕ!! ОЧЕНЬ СРОЧНО!! СОСТАВИТЬ Программку Конкретно В КУМИРЕ!!3 Поочередно вводятся n

ПОМОГИТЕ!! ОЧЕНЬ СРОЧНО!! СОСТАВИТЬ Программку Конкретно В КУМИРЕ!!
3 Последовательно вводятся n целых чисел. Сосчитать сколько из их совпадают с первым числом.

Задать свой вопрос
1 ответ
Var
k,n,p1: integer;
begin
writeln('Vvedite chislo');
readln(p1);
n:=0;
repeat
writeln('Vvedite chislo');
readln(k);
if (k=p1) then
n:=n+1;
until klt;gt;-100
Write('Kol-vo sovpadeniy = ',n);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт