Определить сумму всех чисел кратных 3 из промежутка от 100 до 1000

Ответы

Ali20071011 20.07.2020 13:07

Var sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

TeamFortres2 01.06.2019 09:30

Отметить слово,которым называют процесс создания модели....

starceva83 01.06.2019 09:30

Имеется два запоминающих устройства: одно емкостью 256 байт, другое - 4 кбайт. укажите суммарную ёмкость обоих устройств в байтах...

yaltame 01.06.2019 09:30

Рассчитать объём видеопамяти компьютера, необходимый для формирования изображения на экране монитора, по следующим характеристикам глубина цвета (байт) 32 разрешение экрана 2560...

egorbychkov83 17.03.2021 07:19

тому кто ответит правильно на 2 задания...

shamalava210505 17.03.2021 07:19

Робот с одним датчиком цвета при движении вдоль линии встретил перед собой препятсвие (рис.9). Какие изменения нужно внести в прорамму (рис. 4), чтобы робот мог обойти препятствие...

flexter228 17.03.2021 07:18

Решите в паскале 3х (х2 – 2х – 3) = 9 (х2 – 2х – 3)....

лена363 17.03.2021 07:18

Используя материалы уроков, составьте программу на языке Pascal. Ввод и вывод данных в программе, должен осуществляться в окне консоли crt, для которого задать размеры окна: 80...

Lucky0ne 27.08.2019 18:20

Точно и четко сформулировать условие , которая решается в данной программе: program kr_2_3; var n, st : longint; begin write( введите натуральное число: ); readln(n); st : = 1;...

Fhgfvxdf1 18.10.2020 22:26

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

кпрооо 18.10.2020 22:05

Али загрузил на свой компьютер 30-дневный пробный антивирус. Нужно ли обновлять лицензию после окончания испытательного срока?Нет, потому что тестовая версия предлагается производителем...

Определить сумму всех чисел кратных 3 из промежутка от 100 до 1000

Популярные вопросы