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

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

Ответ:

magamedgalaev9

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

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

flexELITE3

09.11.2021 08:22

Какие параметры необходимы для создания информационной модели учащегося в классном журнале? I. Фамилия II. Имя III. Рост IV. Вес V. Оценки...

Stebnevaalina346

27.01.2023 21:49

Решить примеры: 1) 7 mod 10; 2) 5 div 8; 3) 9 mod 6...

sonya76557

13.07.2022 12:38

1. Дан массив из 5 элементов, состоящий только из 0 и 1 (вводим с клавиатуры) Заменить все нули на -1 и вывести новый массив на экран. (Паскаль). 2.В массиве состоящем из 10 (вводим...

ilhammusayev965

13.07.2022 12:38

Какие Графические процессоры для дискретных видеоадаптеров вам известны?...

nastaklimenkofll

21.05.2022 04:13

Представьте в виде смешного числа выражение 26/7 + 13/7= решить...

baller59

11.06.2020 01:43

Информация о Ботайской культуре...

MsMerenberg86

26.10.2022 06:22

провести примеры применение достижений из области физики сельского хозяйство и медицине помагите...

какчитаетсяэтосказка

15.10.2021 15:46

5 сут 8 ч + 9 сут 46 ч 10 ч 15 мин + 12 ч 45 мин 5 нед 3 дн - 3 нед 6 дн...

romafadeev1

06.12.2022 01:59

Ушбурыштын быр кабыргасынын узындыгы 5,5 см,калган екеуы осы кабырга узындыгынын 75%-ын курайды.Ушбурыштын периметырын табындар . комектесындершы...

КристинаCадовски

28.06.2020 18:29

В декабре ласты стоили 560 Рублей ,что на 20% ,чем в мае . Сколько рублей стоили ласты в мае ...

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

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