• Вводить с клавиатуры числа и посчитать количество четных чисел до нуля.

    Создать программу используя Until и Repeat

Ответы 3

  • А почему k:=-1, а не 0 например?
    • Автор:

      simonynfb
    • 5 лет назад
    • 0
  • Спасибо огромнейшее!
    • Автор:

      leajvr3
    • 5 лет назад
    • 0
  • Var A,k:integer;Begink:=-1;RepeatRead(A);if A mod 2 = 0 then k:=k+1;Until A=0;WriteLn('k = ',k)End.
    • Автор:

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

Войти через Google

или

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

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

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