Ответ :84
716 постоянно делим на 16 и ответ записываемых в обратном порядке ...все..
Бваг Чем больше или,тем больше количество страниц
Var x,y:real;
begin
Writeln ('введите x',x);
readln (x);
y:=(10*x+sqrt(x)-1)*(10*x+1);
writeln ('x=',x);
end.
//PascalABC.NET 3.2 сборка 1318
Var
s:array[1..60] of char;
i,j,len:integer;
begin
len:=60;
for i:=1 to 60 do
read(s[i]);
i:=1;
while(i<=len-3) do
begin
if (s[i]='m') and (s[i+1]='a') and (s[i+2]='m') and (s[i+3]='a') then
begin
s[i]:='d';
s[i+1]:='e';
s[i+2]:='d';
for j:=i+3 to len-1 do
s[j]:=s[j+1];
dec(len);
end;
inc(i);
end;
for i:=1 to len do
write(s[i]);
end.