Вроде всё сделал, но я не понял про закрашивание. Сервис не поддерживает файлы расширения .kum, поэтому я скину команды сюда.
использовать Чертежник
алг
нач
опустить перо
сместиться на вектор (20,0)
сместиться на вектор (0,20)
сместиться на вектор (-20,0)
сместиться на вектор (0,-20)
поднять перо
сместиться на вектор (0,20)
опустить перо
сместиться на вектор (10,15)
сместиться на вектор (10,-15)
поднять перо
сместиться в точку (7,7)
опустить перо
сместиться на вектор (6,0)
сместиться на вектор (0,6)
сместиться на вектор (-6,0)
сместиться на вектор (0,-6)
поднять перо
кон
program название;
var a, b, s, p:integer;
begin
writeln ('Введите число a');
readln (a);
writeln ('Введите число b');
readln (b);
s:=a+b;
p:=a*b;
writeln ('Сумма чисел равна:', s);
writeln (Произведение чисел равно:', p);
end.
Объяснение:
/ - деление.
* - умножение.
sqrt - квадратный корень (всё что будет в корне заключается в скобки).
sqr - квадрат (всё что возводится в квадрат заключается в скобки).
В начале вводишь данные с клавиатуры (значение переменной a и значение переменной b).
Переменной s присваивается сумма переменных a и b.
Переменной p присваивается произведение переменных a и b.
Затем, выводится ответ.
) ТБВ, 2) ЛЕЕТРФ, 3) 240АЯ, 4) 3
Объяснение:
1) БРА (длина нечетная) → РА (меняем буквы на следующие) → СБ (длина четная) → САБ (меняем буквы на следующие) → ТБВ
2) ГРОТ (длина четная) → ГГРОТ (меняем...) → ДДСПУ (длина нечетная) → КДДСПУ (меняем...) → ЛЕЕТРФ
3) 28МАЯ (длина нечетная) → 28АЯ (меняем цифры на следующие) → 39АЯ (длина четная) → 139АЯ (меняем...) → 240АЯ
4) По первому правилу не подходит EHA, остались HCA AEA DAH ECC EEH ADE CEA AED
По второму правилу не подходят ECC, ADE и AED; остались HCA AEA DAH EEH CEA
По третьему правилу не подходят AEA и CEA ; остались HCA DAH EEH