22.05.2020 17:02, AndruxaS

Заполни пропуски в программе на языке Паскаль.

Определить, принадлежит ли точка g отрезку [h;m].

var
h, m,g:real;
begin
write('
=');
readln(
);
write('m=');
readln(m);
write('g=');
readln(
);
if (g>=h) and (g<=
) then writeln ('yes') else writeln('no');
readln;
end.

Всего ответов: 1

Похожие вопросы:

Иконка предмета
Информатика, 03.03.2019 14:38
Написать программу на pascal для вычисления периметра шестиугольника по заданным координатам его вершин, используя процедуру для нахождения расстояние между двумя точками
Ответов: 2
Иконка предмета
Информатика, 08.03.2019 22:47
Подскажите , где расположен датчик nfs на iphone se?
Ответов: 3
Иконка предмета
Информатика, 11.03.2019 05:53
Напишите две команды для инициализации регистра ds , полагая, что имя сегмента данных - datsegэто что-то связанное с accembler, dosbox.​
Ответов: 3
Иконка предмета
Информатика, 11.03.2019 15:02
у кого есть соч по информатике 7 класс , 3 четверть. и ответы не таблицейа на листе
Ответов: 3
Иконка предмета
Информатика, 11.03.2019 15:24
Придумайте кодирования цветов для 256-цветной палитры
Ответов: 2
Иконка предмета
Информатика, 11.03.2019 17:41
Составить программу и блок-схему по 3-му уравнению
Ответов: 2
Иконка предмета
Информатика, 11.03.2019 19:52
Напишите, , в паскале программу: "отсортировать по возрастанию четные элементы массива "а" размерностью от 1 до 15". заранее ! ; )
Ответов: 1
Иконка предмета
Информатика, 12.03.2019 12:02
Напишите команды выборки для получения справки с использованием сложных логических выражений: определить все даты до апреля 2018 года, когда температура была ниже нуля. определить фамилии всех учеников, которые посещают занятия по музыке и по хореографии. получить список всех хорошистов по гуманитарным дисциплинам. определить фамилии авторов книг с названием «сказки», выпущенных после 1985 года. получить фамилии авторов книг и названия книг, выпущенных в период с 1990 по 2000 год.
Ответов: 3
Иконка предмета
Информатика, 13.03.2019 10:40
Преобразуйте код из pascal в с++ var x, y,z, min: real; begin write('x, y,z: '); readln(x, y,z); if x+y+z/2 else min: =x*y*z; writeln('min2(x + у + z/2, xyz) + 1 = ',min+1: 0: 3); readln; end.
Ответов: 1
Иконка предмета
Информатика, 13.03.2019 16:32
Составьте блок-схемы: 1. вводится оценка, полученная учеником на уроке. если оценку 4 или 5,то вывести сообщение: "молодец" 2. заданы числа а и в. если а> в, то в увеличить в 2 раза, а а уменьшить на 10. вывести результат. в противном случае ничего не выводить. 3. задано двузначное число х. если сумма его цифр > 10, то уменьшить число в 3 раза. вывести результат. в противном случае ничего не выводить
Ответов: 1
Иконка предмета
Информатика, 14.03.2019 21:56
Впаскалabc масив вот во всех элементов заменить последную букву на ! -знак​
Ответов: 1
Иконка предмета
Информатика, 14.03.2019 22:21
Разобраться с информатикой! 2. с клавиатуры вводится последовательность 15 чисел. найти сумму четных чисел, больших 50.3. с клавиатуры вводится последовательность 20 чисел. найти количество двузначных чисел, оканчивающихся о.4. с клавиатуры вводится последовательность 10 чисел. найти произведение отрицательных чисел, кратных​
Ответов: 3

Вопросы по другим предметам:

Категория
Английский язык, 26.05.2021 00:43
Категория
Английский язык, 26.05.2021 00:46
Категория
Литература, 26.05.2021 00:50
Категория
Українська література, 26.05.2021 00:52
Категория
Алгебра, 26.05.2021 00:52
Категория
История, 26.05.2021 00:52
Популярные вопросы
Вопросов на сайте: 19076486