Question

1) Напечатайте таблицу кубов чисел: -10, -8, -6, ... 10. 2)Определите результат выполнения программы (без компьютера)begins:=0;x:=10;repeats:=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

Answer 2

1. Таблица кубов чисел от -10 до 10 будет выглядеть следующим образом:

diffCopy code
Число  |  Куб числа
-------------------
-10    |  -1000
-8     |  -512
-6     |  -216
-4     |  -64
-2     |  -8
0      |  0
2      |  8
4      |  64
6      |  216
8      |  512
10     |  1000

2. Программа, которую вы предложили, содержит ошибку в синтаксисе Pascal. Правильное исправление программы будет выглядеть так:

pascalCopy code
begin
  s := 0;
  x := 10;
  repeat
    s := s + x;
    x := x + 10;
  until x > 12;
  writeln('s=', s);
  writeln('x=', x);
end.

Результат выполнения этой программы будет следующим:

makefileCopy code
s=30
x=20

Программа начинает с переменной s равной 0 и переменной x равной 10. Затем она выполняет цикл repeat-until, в котором s увеличивается на текущее значение x, затем x увеличивается на 10, и цикл выполняется до тех пор, пока x не станет больше 12. После завершения цикла программа выводит значения s и x.