1)Чему будет равно значение переменной x после выполнения следующих команд?

x := 10;

for i := 10 downto 2 do

x := x – i;
2)Необходимо было написать программу, которая позволяет найти наименьшее число, большее 500, кратное 17 и вывести его на экран.

Программист торопился и написал программу с ошибками. Укажите строки, в которых допущены ошибки.

Var x: integer;
Begin
x := 500;
Repeat
x := x – 1;
Until x mod 17 <> 0;
Writeln (x);
End.

1)  

2)  

x := x – 1;

Until x mod 17 <> 0; 

Объяснение:

1)

x = 10

для i от 10 до 2 выполнить x = x - i

i = 10       x = 10 - 10 = 0

i = 9        x = 0 - 9 = -9

i = 8        x = -9 - 8 = -17

i = 7        x = -17 - 7 = -24

i = 6        x = -24 - 6 = -30

i = 5        x = -30 - 5 = -35

i = 4        x = -35 - 4 = -39

i = 3        x = -39 - 3 = -42

i = 2        x = -42 - 2 = -44

2)

Var x: integer;

Begin

x := 500;

Repeat

x := x + 1;

Until x mod 17 = 0;

Writeln (x);

End.

x := x - 1; - необходимо найти число большее 500, поэтому x надо увеличивать на 1, а не уменьшать

Until x mod 17 <> 0; - цикл с постусловием работает пока условие ложно, поэтому чтобы найти число кратное 17 условие должно иметь вид x mod 17 = 0