Question

Написать программу в паскале .
Если число чётные то делим на два ,если нечётное то возвести в квадрат .

Answer 1

var a: integer;

begin

readln(a);

if a mod 2=0 then writeln (a/2) else writeln (sqr(a));

end.

Answer 2

Думаю, у Вас ошибка. Так как число нужно возвести в квадрат в случае, если оно нечётное, то нужно написать else weriteln (a*a)

Answer 3

Также "else..." нужно писать не с новой строчки

Answer 4

Также нет названия программы. Остальное всё идеально. Если это я что-то не так понял, скажите.

Answer 5

sqr - это оператор, который возводит число в квадрат (проверьте на Паскале)