ПРОГРАММИРОВАНИЕ PascalABC
Вводится число целое. Если оно отрицательное, то вывести его квадрат, если оно положительное, вывести его куб, иначе (оно равное нулю) вывести сообщение 'равно нулю'.
Вводится число целое. Если оно отрицательное, то вывести его квадрат, если оно положительное, вывести его куб, иначе (оно равное нулю) вывести сообщение 'равно нулю'.
More Questions From This User See All
Answers & Comments
var
a: integer;
begin
writeln('Введите целое число:');
readln(a);
if a < 0 then
writeln(a, '^2 = ', sqr(a));
if a > 0 then
writeln(a, '^3 = ', sqr(a) * a);
if a = 0 then
writeln('Равно нулю.');
end.