В тетрадь решить две задачи. По возможности нарисуйте блок схему
Если число четное, то возвести его в куб иначе от него отнять 2
Если число отрицательное и четное , то умножить его на 2, иначе умножить на -4.
На компьютере
Решить задачу: Если число четное, то возвести его в квадрат, иначе от него отнять 5
var b, y:integer;
begin
write('Введите число ');
readln(b);
if b mod 2=0 then y:=sqr(b)
else y:=b-5 ;
writeln('результат=' ,y);
end.
Решить задачу
если число положительно и четное возвести его в квадрат иначе умножить на 3
var b, y:integer;
begin
write('Введите число ');
readln(b);
if (b mod 2=0) and( b>0)
then y:=sqr(b)
else y:=b*3 ;
writeln('результат=' ,y);
end.