• Pascal ABC
    Составьте программу которая находит количество двухзначных чисел кратных 3

Ответы 1

  • var i,otvet:integer;begin for i:=0 to 99 do    begin      if (i mod 3)=0 then          otvet:=otvet+1;     end;writeln(otvet);end.  
  • Добавить свой ответ

Войти через Google

или

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

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

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