1. Информатика
  2. Создайте программу вычисления

Создайте программу вычисления среднего арифметического переменных x1 и x2. при равенстве значений выдать сообщение "вычислений нет" на языке pascal.

nikabagirovap0dq1g nikabagirovap0dq1g    2   17.09.2019 08:00    1

Ответы
nikolasosadchey nikolasosadchey  07.10.2020 21:21
Var
  x1,x2:real;
 
begin
  Write('Введите x1,x2: '); Read(x1,x2);
  if x1=x2 then Writeln('Вычислений нет')
  else Writeln((x1+x2)/2)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
degorov152 degorov152  08.12.2020 18:29
Индекс функциясын аргументтеоін ата​...
karleusastar karleusastar  08.12.2020 18:32
Текстовая информация Excel​...
mahamde mahamde  07.06.2019 00:50
Напишите программу на с++. создать массив вещественных чисел. определить количество элементов, стоящих между максимальным и минимальным....
LindSayWoW LindSayWoW  22.08.2019 21:50
Переставить элементы массива в обратном порядке.паскаль...
smit007agent smit007agent  22.08.2019 21:50
Дан массив, состоящий из 20 элементов. произвести вставку числа 10 в позицию m данного массива. позиция m должна соответствовать диапазону 1≤m≤n....
агроэШкольник2281 агроэШкольник2281  28.04.2020 15:54
Составить алгоритм управления Чертёжником, в результате которого на координатной плоскости будет нарисован квадрат, длина стороны которого равна 8 единицам....
alinaby13 alinaby13  28.04.2020 15:53
составить блок-схему по информатике. Внизу фото Есть ссылка на урок : https://pythontutor.ru/lessons/while/problems/seq_max_chunk_of_repetitions/...
Nurlan2010 Nurlan2010  08.09.2020 19:03
Чи завжди інформація є корисною? Доведіть на прикладах​...
aniavetisa aniavetisa  08.09.2020 19:24
1 . 1024 Мбайт это ? Кбайт 2. 80 бит информации это ? байт 3. 4096 Кбайт это ? Мбайт 4. 1,4 Мбайт это ? бит 5. 1536 Кбайт + 1536 Кбайт это ? Мбайт 6 1 Кбайт + 1,5 равно ? байт 7...
срочно118 срочно118  08.09.2020 19:26
Наведіть приклади, коли незначна у семантичному аспекті інформація містить велику кількість інформації в інших аспектах.​...

Популярные вопросы