Найти 10 первых натуральных чисел, оканчивающихся на цифру 7 кратных числу 9 и находящихся в интервале левая граница которого равна 100. Пожалуйста, оформите задачу, чтоб можно было ввести в программу и скомпилировать.)
Ответы на вопрос
Ответил innapav
0
На Паскале подойдет?
program help;
var a, i:integer;
begin
a:=100;
i:=0;
while i<10 do
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.
program help;
var a, i:integer;
begin
a:=100;
i:=0;
while i<10 do
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.
Новые вопросы