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

1. даны два действительных числа х, у. найти max(min(x-y, y), x).

👇
Ответ:
RomaNeymarjr
RomaNeymarjr
25.05.2020

Может быть, я тебя не так понял. Значит max(y,x) означет что надо вычислить что больше 'x' или 'y'? соответственно и min.

 

var x,y,max,min: integer;

Begin

Writeln('введите x,y через пробел');

read(x,y);

if x-y>y then min:=y else min:=x-y;

{Если х-у>y тогда переменной min присваеваем значение y, в другом случае min присваеваем значение x-y(если "=" тоже, потому что значения будут одинаковы)}

If min>x then max:=min else max:=x; {примерно также}

Writeln(max);

end.

 

Если что - пиши в личку.

Удачи!

4,4(69 оценок)
Открыть все ответы
Ответ:
kaitva15
kaitva15
25.05.2020

1) это сведения о чём то

2)обоняние , осязание, зрение , слух.

3) Блок питания

— Центральный процессор

— Внешняя видеокарта (ее разъем PCI, AGP, PCI-Express)

— Оперативная память

— Оптический DVD привод

— Трехдюймовый дисковод гибких дисков (FDD 3,5)

— Жесткий диск (винчестер)

— Материнская плата (фиолетовая)

4) Основными устройствами вывода являются монитор, принтер, плоттер акустические колонки, наушники.

5) Backspace

6) PageDown

7) это то что содержит и хранит информацию

8) клавиатура

9) Сканер

10) клавиатуре, Диска, принтере или на бумагу

Объяснение:

4,6(96 оценок)
Ответ:
MashaLipitenko
MashaLipitenko
25.05.2020
Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.

Код программы:

function isSevenHere(number : integer) : boolean;var digit : integer;begin  Result := true;  while (number > 0) do  begin        digit := number mod 10;    if (digit = 7) then            exit;    number := number div 10;  end;  Result := false;end;
var i,k :integer;begin  write('Введите k: ');  readln(k);
  for i := 1 to k do    if (isSevenHere(i) = true) then      write(i,' ');end.
Найти и вывести на экран все целые числа из промежутка от 1 до k, в десятичной записи которых есть ц
4,8(36 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ