var s:string;
begin
readln (s);
writeln (s,'=',Length(s));
s:=s+'+'+s;
writeln (s,'=',Length(s));
end.
Поставь мне благодарность и пять звёзд)))) и тогда я напишу ответ
<span>233 236 </span>248 241
//PascalABC.Net 3.2
function f(x:real):=1/(x*sqr(x)-2*x);
begin
write ('y=', f(readreal('Введите x: ')));
end.
Алгоритмический язык:
нач
ввод (x);
вывод (1/x^3-2x);
кон