Аббревиатура - В словообразовании: существительное, образованное из усеченных отрезков слов (например, исполком, комсомол), из таких же отрезков в сочетании с целым словом (например, роддом, запчасти), а также из начальных звуков слов или названий их начальных букв (например, вуз, АТС, МХАТ, ЦК, ВДНХ), сложносокращенное словоЕфремова Т.Ф. Толковый словарь русского языка.аббревиатура ж. 1) Слово, образованное из первых букв единиц в словосочетании (США, вуз и т.п.), из начальных частей двух и более слов (продмаг, колхоз и т.п.) или представляющее собою сложение начала одного слова с другим словом словосочетания (роддом, драмкружок и т.п.). 2) Условное сокращение в буквенном и нотном письме (и т.д., см. и т.п.).С.И.Ожегов, Н.Ю.Шведова. Толковый словарь русского языка.аббревиатура, -ы, ж. В словообразовании: существительное, образованное из усеченных отрезков слов (напр., исполком, комсомол), из таких же отрезков в сочетании с целым словом (напр., роддом, запчасти), а также из начальных звуков слов или названий их начальных букв (напр., вуз, АТС, МХАТ, ЭВМ, СКВ), сложносокращенное слово. II прил. аббревиатурный, -ая,-ое.
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.
