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

Найти сумму чисел, кратных 3 от 1 до 100.

Ответ:

Den0410

05.10.2020 07:27

Program n1;
var S, i: integer;
begin
S:=0;
for i:=1 to 100 do
if (i mod 3 =0) then S:=S+i;
writeln(S);
end.

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

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

nik20042002

30.06.2021 16:52

Уменя ноут года нескольких минут работы интернет: без доступа к интернету при этом на телефоне все нормально(он подключён к тому же wifi) ! ...

DJZargo

06.02.2020 20:49

Для хранения растрового изображения размером 64 х 128 пикселов отвели 3 килобайта памяти. каково максимально возможное количество цветов в палитре изображения?...

Шоколадикус

06.02.2020 20:49

Составь алгоритм,цель которого вывести на экран меньшее из значений переменных к и т.к=11,т=7...

prostosadkotik

09.07.2021 02:25

Паскаль! Хоть парочку решить) ...

belbeksev

19.12.2022 01:39

Номера 4, 6, 9 решения нужны очень...

msakinat

11.02.2020 12:01

Как управляют исполнителями...

kyrdmitr

24.01.2020 11:35

К входным зажимам нагрузки, состоящей из последовательно соединенных катушки и индуктивностью L=0,1 Гн, конденсатора емкостью С=17,6 мкФ и резистора, приложено напряжение...

mig4

05.05.2023 19:56

лейшманиоз - инфекционные заболевания. выберите ответ, который указывает на причины лейшманиоза и его предотвращения . ...

ВикаГросс

09.11.2021 03:25

4. Решите задачу. Мотоциклист догоняет велосипедиста. Сейчас между ними 21,2 км. Скорость велосипедиста 12,6 км/ч. Найдите скорость мотоциклиста, если известно, чтомотоциклист...

ИсхакТурдубеков

09.11.2021 03:25

3. Определите свойства воды и серебра. ...

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

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