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