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

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

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

Ответ:

DashaZakh

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 оценок)

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

varfo

01.10.2020 12:25

Как называется командный язык Linux? Каков формат команды? Привести пример....

borenka

14.10.2020 12:05

ответь 1) Что такое постановка проблемы? 2) Перечислите этапы постановки задач. 3) В чем заключается постановка задачи? 4) Что является следствием задачи?...

Россия111111111111

02.01.2021 06:42

1. 20-дан 50-ге дейін натурал сан берілген. 3-ке бөлінетін,бірақ 5-ке бөлінбейтін сандарды баспаға шығарыңдар.2. 35-тен 87-ге дейінгі натурал сандар берілген. 7-ге бөл-генде...

Shkolяr

21.12.2021 00:48

Скиньте соч по алгебре класс 1 четверть...

lglglglgl

30.09.2021 10:14

быстро мне до 10 сдавать надо я понять не могу...

Ilya333444

21.02.2021 23:40

Задача 2 В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для обозначения логической операции «И» – символ «&»....

vfghjufr

13.07.2021 04:20

В государстве все монеты имеют нечетный номинал. Известно, что максимальный номинал монеты 81, всего в обиходе 41 различный номинал. Нумизмат Прохор собрал полную коллекцию...

АРТЕМІДА555

11.02.2023 06:17

С азбуки Морзе декодируй сообщение: _ _ | _ . _ _ | _ _ _ _ | _ . . _...

Ника11112222222x

29.01.2020 03:00

решить буду благодарна(7 вариант)...

8ВероникаКонорюкова8

17.06.2022 05:38

Что лишнее? Файл, фанс, фунт, факт. Принтер, плоттер, винчестер, наушники. Копирование, произношение, перемещение, удаление, модификация. Имя, расширение, библиотека,...

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

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