Var y, x:integer;
begin
read(x);
y:=(abs(x-1))+(sqrt(x)/(sqr(x)*cos(x)))
write('y=',y);
end.
Б- прав Боря так как в первом предложении 24 буквы а каждая буква содержит 8 бит информации из этого вытекает то что 1 предложение весит 24*8=192 бита
Program v1;
Var n,k, sum: integer;
Begin
Write ('Введите знаменатель: ');
Readln(n);
Write ('Введите числитель: ');
Readln (k);
Sum := (n div k);
Write(Sum);
End.
Действия направленные в разные стороны сокращаешь, получается 15-3 и 10-4 итого ответ (5) 3