Найти 10 первых натуральных чисел, оканчивающихся ** цифру 7 кратных числу 9 и...

Question

Найти 10 первых натуральных чисел, оканчивающихся на цифру 7 кратных числу 9 и находящихся в интервале левая граница которого равна 100. Пожалуйста, оформите задачу, чтоб можно было ввести в программу и скомпилировать.)

Answer 1

На Паскале подойдет?
program help;
var a, i:integer;
begin
a:=100;
i:=0;
    while i<10 do<br>    if ((a mod 10)<>7) or ((a mod 9)<>0) then
    a:=a+1
    else
    begin
    i:=i+1;
    write(a,'  ');
a:=a+1
    end;
end.