• На интервале от a до b определить количество четных чисел,кратных 4. Исходные данные- a,b. Результат - K.

Ответы 1

  • var a,b,k,count:integer;

    begin

    readln (a,b);

    for k:=a to b do

    begin

    if (k mod 2 =0) and (k mod 4=0) then count:=count+1;

    end;

    writeln (count);

    end.

    • Автор:

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

Войти через Google

или

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

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

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