Найти сумму всех чисел от 1 до заданного n которые делятся на 3 и не делятся на 5
Гогенцоллерн
2
18.03.2020 03:53
2
Другие вопросы по теме Информатика
Luhfeeqq
19.02.2021 00:48
андрей100500ый
19.02.2021 01:23
berezovskatanap09xfx
28.05.2019 01:00
DiMOn4iK25
28.05.2019 01:00
Красотка12092002
28.05.2019 01:00
SKoteickaЗ
19.01.2021 11:56
Violetta711
17.03.2019 14:14
Популярные вопросы
- Расскажите о брусиловском прорыве 1916 года в вашем рассказе обязательно...
2 - Вычислите массы сульфата меди и воды, которые понадобятся для получения...
3 - УМОЛЯЮ Б. Як ви гадаєте, чи налагодяться стосунки Бена та Деві в майбутньому?...
3 - Дана цепь ДНК, определить 1) структуру ДНК; 2) процентное содержание всех...
2 - Тест по ФЗК 1. Что такое физическая культура? А. Прогулка на свежем воздухе...
1 - Яка з наведених систем нерівностей не має розв’язків?.. Виберіть одну...
2 - с ср надо №1 Ты стоишь у подножия ледяной горки. Какова твоя сила давления...
1 - Заполните пропуски туризм - это путешествие в пределах Российской Федерации,...
2 - Учитывая тождество (10n + 5)2 = n ∙ (n + 1) ∙ 100 + 25 найди значение,...
2 - По англисому Write the questions and answer them. Помгите >...
1
begin
var count:=0;
var i: integer;
var n:=ReadInteger('Введите N:');
for i:=1 to n do
if (i mod 3 = 0 ) and (i mod not 5 = 0)
then
count+=i;
Print('Сумма удовлятворяющие условие: ', count);
end.