program calculator ;
var
A, s, p:Intger;
begin
readln(a);
S:= a div 2;
If s=0 then
If 1<a and a<20 then a:=sqr a else a:=a*a*a
WrteLn(a) ;
end.
Объяснение: узнаем значение переменной с затем чему равна s при и узнаем четное ли оно или нет, затем входит ли оно в интервал и возводим в квадрат если совпадает если нет то в куб. Извените за частые изменения, стараюсь объяснить по понятней.
program calculator ;
var
A, s, p:Intger;
begin
readln(a);
S:= a div 2;
If s=0 then
If 1<a and a<20 then a:=sqr a else a:=a*a*a
WrteLn(a) ;
end.
Объяснение: узнаем значение переменной с затем чему равна s при и узнаем четное ли оно или нет, затем входит ли оно в интервал и возводим в квадрат если совпадает если нет то в куб. Извените за частые изменения, стараюсь объяснить по понятней.