Задача: Если введённое число положительное, то найти его квадрат. Если отрицательное, то...

0 голосов
79 просмотров

Задача:
Если введённое число положительное, то найти его квадрат.
Если отрицательное, то найти его модуль. Если равно нулю, то вывести об этом сообщение.
Задача из Pascal, помогите плз.


Информатика (28 баллов) | 79 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if A > 0 then WriteLn('Квадрат числа: ',A*A)
else if A < 0 then WriteLn('Модуль числа: ',Abs(A))
     else WriteLn('Число равно нулю');
End.

(34.0k баллов)
0

Благодарю.