Question

1) Напечатайте таблицу кубов чисел: -10, -8, -6, ... 10.
2)Определите результат выполнения программы (без компьютера)
begin
s:=0;x:=10;
repeat
s:=s+x;
x:=x+10;
untill x>12;
writein('s=',s);
writein('x=',s);
end.

Answer 1

1)
uses crt;
var a:integer;
begin
     for a:=-10 to 10 do
     writeln('a=',a,' ',a*a*a:6);
end.
---
2) 10
    10