Домашнее задание Подготовь презентацию из 4 слайдов по предложенной теме. Содер- жание слайдов должно раскрывать соответствующие заголовки. лио- ий. ых ан- Тема презентации Заголовки слайдов Гь Я Интернет, Интернет-зависимость 1. Уровень развития сети Интернет на сегодняшний день. 2. Каковы причины возникновения зависимости от сети Интернет? 3. Какие риски для здоровья несет интернет-зависимость быть независимыми от сети Интернет.
// Внимание! Если программа не работает, обновите версию!
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) оператор объявляет массив из четырех вещественных элементов и заполняет его вводимыми с клавиатуры данными.
Второй делает остальное: вычисляет результат, проверяет, целочисленный ли он и выводит соответствующее сообщение на монитор.