Var n:longint;
c:real;
begin
write ('N = ');
readln(n);
if (n mod 2 = 0) and (n>0) then c:=n/4 else
if (n mod 2 = 0) and (n<0) then c:=n*5 else
if (n mod = 1) then c:=sqr(n);
write (c:0:2);
end.
Решение показано в прилагаемом файле.
Ответ: 77
Скопировать все песни и поставить в проигрыватель.
Буква и цифра и всё
знак-- буква--&>цифра