Задать вопрос Регистрация
Помочь другим

  • Написати програму на Турбо Паскаль,для обчислення суми чисел кратних трьом,які не більше 100.

Ответы 1

  • var s,i:integer;beginfor i:=3 to 100 do  if i mod 3=0 then s:=s+i;write('Сумма: ',s);readlnend.

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

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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