var
i:integer;
begin
for i:=1 to 100 do
if (i mod 7 = 0) and (i mod 10 = 3) then write(i,' ');
end.
Результат работы программы
Вывести на экран числа на интервале от 1 до 100, которые заканчиваются цифрой 3 и делятся на 7 без остатка — Pascal(Паскаль)