Составить программу.паскаль. найти сумму чисел, делящихся без остатка на 4, меньших 100 и заканчивающихся на 2 или 8.
anyalogunova1
1
17.05.2019 20:30
3
Другие вопросы по теме Информатика
Timm2517
06.07.2019 09:40
dima2845
23.11.2020 12:57
тай4
23.11.2020 12:58
igor1337d
16.08.2020 23:59
julyaloskutowaozd804
16.08.2020 12:41
kolafeoktistovp0aj9j
04.03.2021 12:52
Malıw
04.03.2021 12:52
лера2208
04.03.2021 12:53
АлисаЮрьева
04.03.2021 12:53
Популярные вопросы
- Напишите 2 важнейших событий в жизни петра 1....
1 - Коля пробежал 100 м за 20 с. за какое время он пробежит расстояние в 60...
1 - Существует ли треугольник с заданными параметрами углов: 120,40,40 ( градусов)...
1 - Дан квадрат kmnp, o пересечение диагоналей. построить фигуру в которую переходит...
1 - Хронологические рамки правление начиная с ивана 4...
1 - Составить 3 предложения со словосочетанием письмо(кому? ) сестре...
2 - Чем отличаются пьеса от повести (рассказа)?...
1 - Найти корни уравнения cosx=-1/2,принадлежащие отрезку [-2п; 3п]...
1 - Две черепахи поползли от дерева в протвоположные стороны. скорость одной...
1 - Напишите описание какого-либо животного с качественными прилагательными!...
3
var
i,s:integer;
begin
s:=0;
for i:=0 to 100 do begin
if (i mod 4 = 0) then for i:=0 to 100 do
if (i mod 10=2) or (i mod 10=8) then s:=s+i;;
write('Summa = ',s);
end;
end.