Предмет: Информатика,
автор: lol19703685
Помогите пожалуйста!!! Конструктор алгоритмов . Найти сумму целых положительных чисел: больших 20, меньших 100, кратных 3 и заканчивающихся на 2/4/8.
Заранее спасибо
Приложения:
![](https://files.topotvet.com/i/302/302924db2fdcb8c9a0d0abd4ebe866f1.png)
HackerXX:
На каком языке?
Ответы
Автор ответа:
0
Ответ:
var n,sum:integer;
begin
for n:=20 to 100 do begin
if(n mod 3 = 0)and((n mod 10 = 2)or
(n mod 10 = 4)or
(n mod 10 = 8))then sum:= sum + n;
end;
write(sum);
end.
Похожие вопросы
Предмет: Алгебра,
автор: parhomenkovasilisa
Предмет: Алгебра,
автор: tsarckovsan
Предмет: История,
автор: gahop7273
Предмет: Математика,
автор: tanyushka0909
Предмет: Математика,
автор: Adelinkadog