Написать программу в Паскале. По заданному числу N определите знак числа. Формат входных данных: Во входном файле input.txt записано одно целое число N (-10000<=N<=10000) Формат выходных данных: если заданное число положительное, то в выходной файл output. txt выведите квадрат этого числа. Если заданное число отрицательное, то вывелите модуль этого числа. Если же заданное число - нуль , то и вывести надо нуль. Примеры: input.txt output.txt 5 25 -5 5 0 0
Написать программу в Паскале. По заданному числу N определите знак числа. Формат входных данных: Во входном файле input.txt записано одно целое число N (-10000<=N<=10000) Формат выходных данных: если заданное число положительное, то в выходной файл output. txt выведите квадрат этого числа. Если заданное число отрицательное, то вывелите модуль этого числа. Если же заданное число - нуль , то и вывести надо нуль. Примеры: input.txt output.txt 5 25 -5 5 0 0
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SignNumber;
var
input, output: Text;
N: integer;
begin
Assign(input, 'input.txt');
Assign(output, 'output.txt');
Reset(input);
Rewrite(output);
Readln(input, N);
if N > 0 then
Writeln(output, N * N)
else if N < 0 then
Writeln(output, Abs(N))
else
Writeln(output, 0);
Close(input);
Close(output);
end.