Паскаль, информатика,8 класс​

var i,i2,i3:integer;

begin

for i:=8 downto 1 do begin

 i2:=i*i;

 i3:=i2*i;

 writeln(i:4, i2:4, i3:4);

end;

end.

Объяснение:

333*3 + 3/3 = 1000

(8888 - 888) / 8 = 1000

program;   var  i: byte;   str: string;   begin  for i: =60 to 70 do  begin  str: =str+chr(i) ;   end;   writeln(str);   end.