10 Первых натуральных чисел оканчивающихся на 7

10 Первых натуральных чисел оканчивающихся на 7

Program znanija3;
var i, number:integer;
begin
number:=0;
while i <> 10 do begin
Inc(number);
if (number mod 10) = 7 then begin
writeln(number);
Inc(i);
end;
end;
end.

P.S. Inc(number) = number:= number+1

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.

Ответ оставил Гуру

Вот так можно перевести, если я не ошибся

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

  • 21 December 2015
  • Ответ оставил: Burdosteem1

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

Читайте также:  Beyond two souls время прохождения
Ссылка на основную публикацию
Adblock detector