Question

Срочно 50 баллов даю
Решите с объяснением
Проверьте является ли частное от деления суммы четырех произвольных чисел, введенных с клавиатуры, на разность двух последних из них целым числом!!!

Answer 1

program zadacha;

var

x1,x2,x3,x4,sum,raz,chas:real;

begin

writeln('vvedite 4 chisla');

readln(x1,x2,x3,x4);

sum:=x1+x2+x3+x4;

raz:=x3-x4;

chas:=sum/raz;

writeln('itogi: ',chas);

if int(chas) =chas then writeln('celoe chislo')

else writeln('ne celoe chislo');

end.

8ecd5ba3ace14a36eaa88d6ca0e4071c.docx

Answer 2

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal('Введите 4 числа:',4);
  if Frac(a.Sum/(a[3]-a[2]))=0 then Writeln('Целый результат')
  else Writeln('Нецелый результат')
end.

Примеры
Введите 4 числа: 7.2 1.8 25.5 5.5
Целый результат

Введите 4 числа: 36 18.6 12 5
Нецелый результат

Объяснения:
Первый (после begin) оператор объявляет массив из четырех вещественных элементов и заполняет его вводимыми с клавиатуры данными.
Второй делает остальное: вычисляет результат, проверяет, целочисленный ли он и выводит соответствующее сообщение на монитор.

8ecd5ba3ace14a36eaa88d6ca0e4071c.docx