Напишите программу на Паскале. Найти сумму целых положительных чисел, больших 100, меньших 1000, кратных 3 и заканчивающихся на 8.
laf03
2
06.11.2020 09:41
1
Другие вопросы по теме Информатика
rafik321
30.09.2019 10:10
илья1949
30.09.2019 10:10
Maxys365
30.09.2019 10:10
нананавай
21.06.2019 07:40
Машуля1790
21.06.2019 07:40
muradir1102
21.06.2019 07:40
Nastiusha2801
21.06.2019 07:40
Andrey346563545
21.06.2019 07:40
muzycuk
21.06.2019 07:40
Популярные вопросы
- Знайдіть які-небудь три розв язки рівняння:1)6х+у=72)2х-3у=-4 !!...
1 - нужно сделать задание Працюємо самостійно те что на картинке 1,2,3 задания...
1 - ЗА ОТВЕТ Написать впечатление о фильме - Как Россия захватила Крым | Специальный...
2 - Середня заробітна плата робітників та службовців у 2019 р. становила 5 348,00...
2 - ЛАДНО СОВСЕМ НЕТ ВАС РАДИ ХРИСТА...
1 - Ребята расставить знаки запятые и объснить почему так ставиться и их расставить...
3 - Продолжение: виділеной єнергії при повному ..кожного ядра урану виділяється...решите...
3 - Кто первый напишет тот ты самый красивый ...
1 - Знайти найбільше значення функції у = – + 3х – 2 на проміжку [1; 3]...
1 - А)СДЕЛАЙ ЗАДАЧИ производительность 1 конвейерной линии шоколадных конфет 120...
2
var i,s,a:integer;
begin
s:=0;
for i:=101 to 999 do
begin
a:=i mod 10;
if (i mod 3 = 0)and(a=8) then s:=s+i;
end;
writeln('s = ',s);
end.
Объяснение: