• Найти количество четных чисел в последовательности чисел.Последовательность чисел заканчивается 0.Паскаль Помогите пожалуйста

Ответы 6

  • Спасибо большое,только после Readln ; забыл,но не важно
  • Перед end можно не ставить ;
    • Автор:

      karen25
    • 6 лет назад
    • 0
  • Ну ок,объясни пожалуйста зачем нужна строчка k:=k+1?
  • А,всё до меня дошло,типо k-колво чётных,изначально оно =0, если выполняется это условие while x<>0 do beginif x mod 2 = 0 then к к добавляется 1?
  • Умничка
    • Автор:

      lucas392
    • 6 лет назад
    • 0
  • var k,x:integer;beginreadln(x);k:=0;while x<>0 do beginif x mod 2 = 0 thenk:=k+1;readln(x);end;write(k);readlnend.
  • Добавить свой ответ

Войти через Google

или

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

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

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