Код программы:
var i, sum, a:integer;
begin
writeln('Четные числа:');
for i:= 72 to 134 do begin
if i mod 2 = 0 then
write(i, ' ');
end;
writeln();
writeln();
writeln('Числа, оканчивающиеся на "3":');
for i:= 72 to 134 do begin
if i mod 10 = 3 then
write(i, ' ');
end;
writeln();
writeln();
writeln('Числа, сумма цифр которых меньше 11:');
for i:= 72 to 134 do begin
a:= i;
sum:= 0;
while a <> 0 do begin
sum := sum + a mod 10;
a := a div 10;
end;
if sum < 11 then
write(i, ' ');
end;
end.
Объяснение:
потому что оно больше 40 и оно не четное