Ответ:
1122
Объяснение:
Заменим команды на обратные:
1. умножь на 3 - раздели на 3
2. вычти 2 - прибавь 2
Пойдем от большего числа к меньшему учитывая, что в результате действий должны получаться только целые числа
23+2=25 (2)
25+2=27 (2)
27/3=9 (1)
9/3=3 (1)
Запишем произведённые действия снизу вверх 1122
Var a,b,c:real;
begin
readln(a,b,c);
if (a=b) or (b=c) or (a=c) then writeln('true')
else writeln('false');
end.
Речь идет об Эйфелевой башне в Париже. Башня построена в 1889 г. к Всемирной выставке. Главный конструктор (Гюстав Эйфель) называл её <span>«300-метровой башней».</span>
Var
A: integer;
begin
readLn(A);
if (A mod 2 = 0) then
begin
A := sqr(A);
WriteLn('Квадрат введённого числа равен: ', A);
end else
begin
A := ((A mod 100) div 10) + (A mod 10) + (A div 100);
writeLn('Сумма цифр введённого числа равна: ', A);
end;
end.
Создать.
Переименовать.
Переместить.
Скопировать.
Редактировать.
Удалить.