Написать программу в Паскале. По заданному числу 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
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 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.