М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
haaahahaha12345
haaahahaha12345
22.03.2023 03:25 •  Информатика

Домашнее задание Подготовь презентацию из 4 слайдов по предложенной теме. Содер- жание слайдов должно раскрывать соответствующие заголовки. лио- ий. ых ан- Тема презентации Заголовки слайдов Гь Я Интернет, Интернет-зависимость 1. Уровень развития сети Интернет на сегодняшний день. 2. Каковы причины возникновения зависимости от сети Интернет? 3. Какие риски для здоровья несет интернет-зависимость быть независимыми от сети Интернет.

👇
Открыть все ответы
Ответ:
atrocities22
atrocities22
22.03.2023
// 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 решите с объяснением проверьте является ли частное от деления суммы четырех произвольных чисел, в
4,8(33 оценок)
Ответ:
maksimiksanov
maksimiksanov
22.03.2023
1)uses crt; var  x,a,b,c,i: integer;     begin cls;   write('введите число: '); readln(x);     a: = x div 100;     b: = (x - a*100) div 10;     c: = (x - a*100 - b*10);     if (a=b) or (a=c) or (b=c) then    writeln('есть одинаковые цифры')    else    writeln('одинаковых цифр нет'); end.2)uses crt; var  x: real;     begin cls;   write('сумма покупки: '); readln(x);     if x> 1000 then x: =x-(x*0.1);     writeln('стоимость с учётом возможной скидки ',x); end.
4,4(88 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ