// 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) оператор объявляет массив из четырех вещественных элементов и заполняет его вводимыми с клавиатуры данными. Второй делает остальное: вычисляет результат, проверяет, целочисленный ли он и выводит соответствующее сообщение на монитор.
Жили были Дед да Бабка. Однажды Бабка говорит Деду: Иди старый смастери чего нибудь нового, чего на свете еще нету. Долго думал Дед, что смастерить да придумал. День работал, ночь работал и так две недели. Потом приносит бабушке iPhone 7, вот Бабка гляди, телефон который еду готовит. Положи они его на стол, нажали на кнопочки и выбрали еду, только они сказали, как на столе появились пироги да мясо. Наелись до сыта они и легли спать. Тут приходит Кузьмич, он тоже своего дело мастер, мастерит ведра под названием Android, увидел он чудо техники и решил избавиться от него. Залез тихонько через окно и только дотянулся до телефона, как тот зазвенел, да так громка что вся деревня услышала, тут подбегает дед с ружьем и бабка со скалкой. Наругали они Кузьмича, да выгнали с деревни. Больше никто его никогда не видел.
// Внимание! Если программа не работает, обновите версию!
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) оператор объявляет массив из четырех вещественных элементов и заполняет его вводимыми с клавиатуры данными.
Второй делает остальное: вычисляет результат, проверяет, целочисленный ли он и выводит соответствующее сообщение на монитор.