var
n, i: Integer;
s: string;
isu: Boolean;
begin
Write ('Введите число: ');
Read (n);
if (n >= 1000) and (n <= 9999) then
WriteLn ('Это число четырехзначное')
else
WriteLn ('Это число не четырехзначное');
s := IntToStr (n);
isu := True;
for i := 1 to Length (s) - 1 do begin
if s [i] <= s [i + 1] then begin
isu := False;
Break;
end;
end;
WriteLn;
if Isu then
WriteLn ('Цифры расположены в порядке убывания')
else
WriteLn ('Цифры НЕ расположены в порядке убывания');
end.
целые числа), перемещающую Чертёжника из точки c координатами (x, y) в точку с координатами (x + a, y + b). Если числа a, b положительные, значение соответствующей координаты увеличивается; если отрицательные – уменьшается. Например, если Чертёжник находится в точке с координатами (9, 5), то команда Сместиться на (1, –2) переместит Чертёжника в точку (10, 3).
Запись
Повтори k раз
Команда1 Команда2 Команда3
конец
означает, что последовательность команд Команда1 Команда2 Команда3
повторится k раз.
Чертёжнику был дан для исполнения следующий алгоритм:
Повтори 3 раз
Сместиться на (–2, –3) Сместиться на (3, 2) Сместиться на (–4, 0)
конец
На какую одну команду можно заменить этот алгоритм, чтобы Чертёжник оказался в той же точке, что и после выполнения алгоритма?
1) Сместиться на (–9, –3)
2) Сместиться на (–3, 9)
3) Сместиться на (–3, –1)
4) Сместиться на (9, 3)
