Вопрос школьника по предмету Информатика
Помогите пожалуйста!!! Паскаль. Найти сумму целых положительных чисел: больших 20, меньших 100, кратных 3 и заканчивающихся на 2/4/8.
Ответ учителя по предмету Информатика
var i,s,a:integer;
begin
s:=0;
for i:=21 to 99 do
begin
a:=i mod 10;
if (i mod 3 = 0)and((a=2)or(a=4)or(a=8)) then s:=s+i;
end;
writeln(‘s = ‘,s);
end.
Результат:
s = 402
Похожие вопросы от пользователей