Изначально дано x=2
1. x=x*x x=2*2=4
2. x=x*x*x x=4*4*4=64 (x=4 из предыдущего шага)
3. x=x*x*x*x x=64*64*64*64=16777216
Ответ: 16777216
Program abc;
var a, b, c, max: integer;
begin
read (a, b, c);
if a>b then
a:=max
else
b:=max;
if c>max then
c:=max;
writeln ('Максимальное число__', max);
end.
Второй в один вопрос еще))0).
Манипулятор (мышь) ну или другие указывающие устройства
a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');