Question

Напишите,пожалуйста,программу.
Задача:
Найдите все целые трехзначные числа которые делятся на 11 и 3.
ПОМОГИТЕ!!!

Answer 1

program z1;
var x:integer;
begin
for x:=100 to 999 do
if (x mod 11=0)and(x mod 3=0) then
write (x,' ');
end.