граблі → убираем 2 первые буквы и 1 последнюю букву, т.к. до картинки стоит 2 запятые, а после 1 запятая → абл
и → просто буква и → и
ч → просто буква ч → ч
кінь → пишем слово справа налево, т.к. картинка перевёрнута → ьнік → убираем первую букву и последнюю букву, т.к. до картинки стоит 1 запятая и после 1 запятая → ні
собираем → табличні
лев → пишем слово справа налево, т.к. картинка перевёрнута → вел
и → просто буква и → и
ч → просто буква ч → ч
джин → убираем 2 первые буквы, т.к. до картинки стоит 2 запятые → ин
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.
табличні величини
Объяснение:
т → просто буква т → т
граблі → убираем 2 первые буквы и 1 последнюю букву, т.к. до картинки стоит 2 запятые, а после 1 запятая → абл
и → просто буква и → и
ч → просто буква ч → ч
кінь → пишем слово справа налево, т.к. картинка перевёрнута → ьнік → убираем первую букву и последнюю букву, т.к. до картинки стоит 1 запятая и после 1 запятая → ні
собираем → табличні
лев → пишем слово справа налево, т.к. картинка перевёрнута → вел
и → просто буква и → и
ч → просто буква ч → ч
джин → убираем 2 первые буквы, т.к. до картинки стоит 2 запятые → ин
и → просто буква и → и
собираем → величини
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.