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

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

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

Question

Вовуля

4 августа, 13:58

+5

Ответы (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Пример вывода: Число дробное"