. Исполнитель Чертёжник перемещается на координатной плоскости, оставляя след в виде линии. Чертёжник может выполнять команду Сместиться на (a, b) (где a, b — целые числа), перемещающую Чертёжника из точки с координатами (x, у) в точку с координатами (x + а, у + b Если числа a, b положительные, значение соответствующей координаты увеличивается; если отрицательные, уменьшается. Например, если Чертёжник находится в точке с координатами (4, 2), то команда Сместиться на (2, −3) переместит Чертёжника в точку (6, −1). Запись Повтори k раз Команда1 Команда2 КомандаЗ Конец означает, что последовательность команд Команда1 Команда2 КомандаЗ повторится k раз. Чертёжнику был дан для исполнения следующий алгоритм: Команда1 Повтори 3 paз Сместиться на (1, 3) Сместиться на (1, −2) Конец Сместиться на (3, 9) После выполнения этого алгоритма Чертёжник вернулся в исходную точку. Какую команду надо поставить вместо команды Команда1?
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Информатика Урок 7: Художник: Циклы 4 номер
Автор: magsh99
КОМПЬЮТЕРНАЯ ГРАФИКА с таблицы сравнить модели RGB и CMYK, записать их отличия.
Автор: Валерьевна1601
Нужно не просто решение, а с понятным объяснением, можно черновик
Автор: Yurevna_Kharkchinov1302
Сообщение о языке HTML, зачем он нужен. Размер 10-15 предложений.
Автор: I.B.Petrishchev
Сделайте график дежурств в классе. заранее
Автор: Semenovt
Где используются информационные системы ( 3-4 примера)?
Автор: Bogataya Vladimir318
1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.
var
i: integer;
s: string;
begin
i := 1;
while i <= 5 do
begin
readln(s);
if s = 'zn4n1j4' then
begin
writeln('Вход в систему разрешен');
exit;
end;
writeln('Неверный пароль.');
end;
writeln('Пароль не был угадан 5 раз.');
end.
2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.
var
x, ans: integer;
begin
read(x);
ans := 0;
while x <> 0 do
begin
ans := ans + (x mod 10);
x := x div 10;
end;
writeln(ans);
end.