Войти Регистрация Спроси ai-bota

Найти сумму чисел, кратных трем в диапазоне от 0 до 50

Показать ответ

Ответ:

romanersisyan

17.09.2020 13:26

Var k,sum:integer;
begin
sum:=0;
for k:=0 to 50 do
if(k mod 3 =0) then sum:=sum+k;
writeln(sum);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

SofaBai

13.03.2020 19:25

Информатика 7 класс Рассказ набранный на компьютере,содержит несколько страниц.На каждой странице 48 строк по 72 символа в строке.Информационный объём рассказа составляет...

magiklen

08.01.2020 13:45

На компьютере набран текст, информационный объем которого - 120 бит. сколько символов в тексте?...

Julia517517

19.09.2021 03:53

определить требуемый объем видеопамяти в мбайтах если разрешающая экрана монитора состовляет 1024 на 768 пикселей, а глубина цвета на одну точку - 16 бита...

Gufka965

07.02.2021 22:37

Сколько градусов содержит угол аов если его градусов в мера равна 65%развернутое угла? ....

konfetkamailrup0acjk

07.02.2021 22:37

Переведите : она была хорошенькой. у нее были длинные русые волосы, карие глаза с длинными ресницами и милые щечки. пока шла перемена я узнал много нового и интересного о...

syamiulinlinar

07.02.2021 22:37

Знаеш ли ты сколько профессий существуует на свете около 40 тысяч 6 тысяч из них появились в последние десятилетия профессии могут рождаться и умирать отчего это происходит...

brainsofi1

07.02.2021 22:37

Осень,весна,голодна,дождлива.нужно подобрать проверочные слова...

Darkparadise02

07.02.2021 22:37

День сменяет ночь, потомусто земля вращается...

creeperm477

07.02.2021 22:37

Почему обувь изнашивается? почему брюки протираются? почему тела такие большие если молекулы такие маленькие?...

gubanvitalya

07.02.2021 22:37

От чего зависит тел к теплопроводности...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку