Паскаль: "Введите с клавиатуры число x. Определите, является ли данное число дробным.

Пример ввода: 3.5

Пример вывода: Число дробное"

Question

Игорка

14 сентября, 17:55

+4

Ответы (1)

Знаете ответ?

Валерьяша · Answer 1

Program z1;

var a, c:real;

begin

readln (a) ;

c:=round (a) ;

if c=a then writeln ('число не дробное')

else writeln ('Число дробное') ;

end.

Паскаль: "Введите с клавиатуры число x. Определите, является ли данное число дробным.Пример ввода: 3.5Пример вывода: Число дробное"