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

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

Ответ:

Михаил684

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

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

gelya12121

08.06.2023 12:28

Второе полугодие1. Что является основой персонального компьютера?Б) жесткий дискс) клавиатура и мониторd) системная плата2. Для чего предназначен процессор?а) для вычислений,...

KARAZINO

05.06.2020 16:03

По команде присваивания восстановите арифметическое выражение . R:=((4.9*5.7-12.67)/(3.5+0.4))*((85.85+4.3^2)/(2*(3+8.2)^2))...

СоникДляТебя67

01.04.2021 04:35

(там print, или типо того)...

ната1142

25.07.2021 16:17

Исполнитель кузнечик живёт на числовой оси. начальное положение кузнечика – точка 0. система команд кузнечика: вперед 607 – кузнечик прыгает вперёд на 607 единиц, назад 1222–...

adinakuba

30.06.2021 11:55

Впаскале решить (программу написать) 1)найти сумму элементов от а до б 2)вывести все элементы от а до б при любых значениях а и б (целых)...

tarasIT

30.06.2021 11:55

Сколько символов можно передать за 5 секунд используя модем работающий со скоростью 1200 бит/с 14 400 бит/с?...

jendossia

20.01.2022 11:58

Что такое редактор inkspace...

Хитрая0Лиса0

03.01.2021 12:41

Відмінювання числа Шість тисяч вісімсот сімдесят чотири І Двісті сорок дев‘ять...

Wogk

03.01.2021 12:41

Хто з хлопчиків - Сергій чи Митько - був лідером...

dianabalaganska

09.03.2020 17:57

Написать по три предложения, используя разные союзы, поясняя,что за вид союза, подчеркивая грамматическую основу...

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

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