Срочно 50 баллов даю Решите с объяснением Проверьте является ли частное от деления суммы четырех произвольных чисел, введенных с клавиатуры, на разность двух последних из них целым числом!!!
Информатика 5 класс Целочисленная арифметика. - произвольные числа - сумма чисел - деление - целое число.
Для решения задачи на языке Pascal, можно использовать следующий код:
program zadacha;var x1, x2, x3, x4, sum, raz, chas: real;begin writeln('Введите 4 числа'); readln(x1, x2, x3, x4); sum := x1 + x2 + x3 + x4; raz := x3 - x4; chas := sum / raz; if frac(chas) = 0 then writeln('Целое число') else writeln('Не целое число');end.
В этом коде мы запрашиваем у пользователя четыре числа и сохраняем их в переменные x1
, x2
, x3
и x4
. Затем вычисляем сумму этих чисел и разность двух последних чисел. После этого вычисляем частное от деления суммы на разность.
Далее проверяем, является ли это частное целым числом. Для этого используем функцию frac
, которая возвращает дробную часть числа. Если дробная часть равна нулю, то число является целым. В противном случае число не является целым.
Обратите внимание, что этот код предполагает, что пользователь вводит только действительные числа (числа с десятичной точкой). Если вы хотите, чтобы пользователь мог вводить целые числа, вам нужно будет добавить проверку на ввод целых чисел.