• запишите алгоритм определения количества четных чисел среди заданных целых чисел а,в,с

Ответы 2

  • vara,b,c,count:integer;begincount:=0;readln (a,b,c);if (a mod 2=0) then count:=count+1;if (b mod 2=0) then count:=count+1;if (c mod 2=0) then count:=count+1;writeln (count);end.
    • Автор:

      ray93
    • 6 лет назад
    • 0
  • PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  var (a,b,c):=ReadInteger3;  var k:=0;  if a.IsEven then k+=1;  if b.IsEven then k+=1;  if c.IsEven then k+=1;  Writeln('Количество четных чисел равно ',k)end.
    • Автор:

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

Войти через Google

или

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

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

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