Оно же на казахском!!!,не чем помочь не могу,прости)
F1=lambda a,b: a/b
f2=lambda a,b: a if a<b else b
f3=lambda a,b: '=' if a==b else ('<' if a<b else '>')
procent=lambda a: a/100
#примеры
p=print
p(f1(8,2),f1(2,4))
p(f2(5,7),f2(4,3))
p(f3(5,6),f3(5,5),f3(7,3))
p(procent(40))
#результат
#4 0.5
#5 3
#< = >
#0.4
Var
x,a,d,z:int64;
begin
read(x,a,d);
z:=14*sqr(sqr(x))-5*sqr(a)+11*d-17;
writeln(z);
end.
Var N, S: integer
BEGIN
write ('Vvedite N'); readln (N);
S := 0;
while N > 0 do
begin
N := N mod 10;
S := S + 1;
end
writeln (S);
if S mod 9 = 0 then writeln (N, 'kratno 9') else writeln (N, 'ne kratno 9');
END.