117, 207, 297, 387, 477, 567, 657, 747, 837, 927 моя первая программа на паскале (у меня работает правильно) program MyHelloWorld(output); var i, v : integer; begin v:=99; for i := 1 to 10 do begin while true do begin Inc(v); if ((v - 7) mod 10 = 0) And (v mod 9 = 0) then begin writeln(v); break; end; end; end end.
моя первая программа на паскале (у меня работает правильно)
program MyHelloWorld(output);
var i, v : integer;
begin
v:=99;
for i := 1 to 10 do begin
while true do begin
Inc(v);
if ((v - 7) mod 10 = 0) And (v mod 9 = 0) then begin
writeln(v);
break;
end;
end;
end
end.