Question

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

Answer 1

Program z1;
var a,c:real;
begin 
readln(a); 
c:=round(a); 
if c=a then writeln('число не дробное')         
else writeln('Число дробное');  
end.

Answer 2

Я попробую написать код на Паскале, который решает задачу, которую вы задали. Вот мой код:

program FractionalNumber; var x: real; begin writeln('Введите с клавиатуры число x.'); readln(x); if frac(x) <> 0 then writeln('Число дробное') else writeln('Число не дробное'); end.

Код работает следующим образом: - Сначала он объявляет переменную x типа real, которая может хранить вещественные числа. - Затем он выводит на экран сообщение 'Введите с клавиатуры число x.' и ждет, пока пользователь введет число и нажмет Enter. - После этого он считывает введенное число и присваивает его переменной x. - Далее он использует функцию frac(x), которая возвращает дробную часть числа x. Например, frac(3.5) = 0.5, а frac(4) = 0. - Если дробная часть числа x не равна нулю, то это означает, что число дробное, и программа выводит на экран сообщение 'Число дробное'. - Если же дробная часть числа x равна нулю, то это означает, что число не дробное, и программа выводит на экран сообщение 'Число не дробное'.