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.

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

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