Question

помогите мне с заданием пожалуйста

Answer 1

Var X:Real; T:Boolean;

Begin

 Read(X);

 T:=X<Round(X);

 Read(X);

 T:=T and (X<Trunc(x));

 WriteLn(T);

end.

(значения: 34, 79)

ВЫВОД: False

Round возвращает значение, округленное к самому близкому целому числу.

Trunc возвращает целочисленную часть числа с плавающей запятой.

Answer 2

Мой милый друг, пожалуйста, помогите!! Нуждаюсь в вашей помощи! https://znanija.com/task/34545272 , пожалуйста!!!