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.
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.
Answers & Comments
Ответ:
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