На скольких дискетах емкостью 1440 кб можно разместить содержимое жесткого диска объемом 1 гбайт?

Question

Информатика: На скольких дискетах емкостью 1440 кб можно разместить содержимое жесткого диска объемом 1 гбайт?

Eskhere · Accepted Answer

// 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) оператор объявляет массив из четырех вещественных элементов и заполняет его вводимыми с клавиатуры данными.
Второй делает остальное: вычисляет результат, проверяет, целочисленный ли он и выводит соответствующее сообщение на монитор.

50 решите с объяснением проверьте является ли частное от деления суммы четырех произвольных чисел, в

50 решите с объяснением проверьте является ли частное от деления суммы четырех произвольных чисел, в

MOGZ ответил