ПРОГРАММИРОВАНИЕ PascalABC Вводится число целое. Если оно отрицательное, то вывести его квадрат, если оно положительное, вывести его куб, иначе (оно равное нулю) вывести сообщение 'равно нулю'.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
WordPad мәтіндік редакторының қызметін ата
Автор: Алла14
Как сделать, чтобы при нажатии на кнопку открывался рандомный сайт из списка.html
Автор: shturman-765255
Скласти алгоритм обчислення виразу: 73+(37-12)*15
Автор: samsludmila
Расшифровать текст - 110 101 000 000 0 вроде как двоичная система
Автор: ivan-levermor
Привет всем кто нибудь ответить на вопросы в этом файле .
Автор: jstepanova
Какие ошибки устраняет ndd (перечислите)
Автор: Yuliya Aleksandr282
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.