1 знак=8 бит, пробелы тоже считаются, а значит =34*8=272 бита
Var
x,y:integer;
Begin
writeln('x: ');
readln(x);
writeln('y: ');
readln(y);
if (x>0) and (y>0) then writeln('ДА') else writeln('НЕТ');
<span>End.
------------------Помогло ? Скажите спасибо-----------------</span>
Var x,y,z,c:real;
begin
readln(x,y,z);
c:=exp(ln(2)*exp(ln(y)*x))+exp(ln(exp(ln(3)*x))*y);
c:=c-y*(arctan(z)-pi/6)/(abs(x)+1/(y*y+1));
writeln(c:8:6);
end.
Пример:3.251 0.325 0.466e-4
4.251433
Х=18
у=8+24=32
х=3+3=6
с=6*632+6/6=5
Числа в задаче даны в системе счисления с основанием 8:
24(8) = 2*8+4 = 20(10)
5(8) = 5(10)
12(8) = 8+2 = 10(10)