• ПОМОГИТЕ!! ОЧЕНЬ СРОЧНО!! СОСТАВИТЬ ПРОГРАММУ ИМЕННО В КУМИРЕ!!
    №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 k<>-100 Write('Kol-vo sovpadeniy = ',n); end.
    • Автор:

      mekhihr38
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years