• Найти количество чётных чисел от 1 до 100,программа Pascal abc

Ответы 1

  • var i,n:integer;

    begin

       n:=0;

       for i:=1 to 100 do

          if (i mod 2 = 0) then inc(n);

       writeln(n)

    end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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