Объяснение:
program DivBy10;
var
i: integer;
begin
for i:=1 to 10 do WriteLn(i,'-th line ', (11-i)*10,' divide by 10 = ', (11-i)*10/10:3:0);
end.
Объяснение:
program DivBy10;
var
i: integer;
begin
for i:=1 to 10 do WriteLn(i,'-th line ', (11-i)*10,' divide by 10 = ', (11-i)*10/10:3:0);
end.