Решим задание наоборот:
52 ->7,
1) прибавь 1,
2) подели на 3.
52 + 1 = 53 (1).
53 + 1 = 54 (1).
54 : 3 = 18 (2).
18 : 3 = 6 (2).
6 + 1 = 7 (1).
Запишем команды снизу-вверх.
Ответ: 12211.
#1
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := ((x + y - z)/(x*x + 2));
writeln(a);
end.
#2
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := 5*((2*x-z)/(3+y*y));
writeln(a);
end.
#3
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := (1 + z)*((x+(y/x*x+4))/(2+(1/(x*x+4))));
writeln(a);
end.
#2.1
const pi = 3.14;
var
l,s,r : real;
begin
readln(r);
l := 2 * pi * r;
s := pi * r * r;
writeln(l);
writeln(s);
end.
#2.2
var
x : real;
begin
readln(x);
writeln((180 - x)/2);
end.
Var a:array[1..100] of integer;
n, i, k,sum: integer;
begin
read(n);
k:=0;
sum:=0;
for i:=1 to n do read (a[i]);
for i:=1 to n do
begin
if (a[i]<0) then k:=k+1 else
sum:=sum+a[i];
end;
end.
вроде так :)
Общее количество символов: 8*40*64.
Для 1 символа используется: 25*1024*8/(8*40*64) бит = 10 бит