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

Написать программу pascal с команд if then else. есть прямоугольное отверстие с размерами а и b. пройдет ли в это отверстие восотой m и шириной n

👇
Ответ:
Eool
Eool
06.02.2022
Чтобы предмет с прямоугольным поперечным сечением в прямоугольное отверстие размером m×n, нужно чтобы минимальный размер стороны отверстия был больше минимального размера в сечении предмета, а максимальный размер стороны отверстия был больше максимального размера в сечении предмета.
Выражение min(a,b) < min(m,n) ∧ max(a,b) < max(m,n) должно принимать значение "истина".

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите через пробел размеры балки:');
  var (m,n):=ReadReal2('введите через пробел размеры отверстия:');
  if  (Min(a,b)<Min(m,n)) and (Max(a,b)<Max(m,n)) then
    Writeln('Балка проходит в отверстие')
  else Writeln('Балка не проходит в отверстие')
end.

Пример
Введите через пробел размеры балки: 3.6 4.8
введите через пробел размеры отверстия: 4.2 4
Балка не проходит в отверстие
4,4(34 оценок)
Открыть все ответы
Ответ:
kolomietslina
kolomietslina
06.02.2022

1)Архиватор – это программа, которая осуществляет сжатие одного или множества файлов с последующей упаковкой в архив. Говоря более простым языком, она может как уменьшить размер одной песни или текстового документа, так и сделать это с несколькими, создав архив - один файл из множества, который потом можно распаковать и на выходе получить исходную информацию до упаковки и сжатия.

2)Архиватор позволяет создавать различные виды архивов: архив из группы файлов или из одного файла, многотомный архив, непрерывный архив, архивы разных форматов (rar, zip, sfx). Многотомный архив – это один архивный файл, хранящийся на нескольких носителях.

3)Подробный обзор и ссылки на скачивание лучших программ для архивации данных — архиваторов — для компьютеров на базе ОС Windows. ... При упаковке некоторых видов файлов их конечный размер может быть уменьшен на 90-95%. Все современные.

Объяснение:

можно ответ лучшим

4,6(39 оценок)
Ответ:
madinaseidahmet
madinaseidahmet
06.02.2022
1. "Школьное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
var
  i,n:integer;
  s1,sn,t:string;
begin
  i:=1;
  while s[i]<>' ' do Inc(i);
  s1:=Copy(s,1,i-1);
  n:=Length(s); i:=n;
  while s[i]<>' ' do Dec(i);
  sn:=Copy(s,i+1,n-i);
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sb)>0 then t:=t+s1[i];
  s1:=t;
  t:='';
  for i:=1 to Length(sn) do
    if Pos(sn[i],sb)>0 then t:=t+sn[i];
  sn:=t;
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sn)>0 then
      if Pos(s1[i],t)=0 then t:=t+s1[i];
  for i:=1 to Length(t) do Write(t[i],' ');
  Writeln
end.
 
Тестовый прогон:
t r

2. "Нормальное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
begin
  var a:=s.ToWords(' ');
  a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.

Тестовый прогон:
t,r
4,7(96 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ