Информатика, программирование на языке Паскаль, нужно написать программу. Определить сколько платьев можно сшить из 100 м ткани. На платье уходит 80% роста. Рост 155-180.
Примерно должно выглядеть вот так, как указано на картинке.

​

Реши орфографические и пунктуационные задачи. Выпиши союз, определи, что связывают союзы (однородные члены предложения / части сложносочинённого предложения / части сложноподчинённого предложения).

Пример:

«Прилетели птицы, и всё запело, заворковало».

Союз и связывает части сложносочинённого предложения.

1. Он наш_л рак_вину на дне моря однако сб_реч? её (не)сумел.

 

Союз  

связывает .

 

 

2. Анна (не)отвечала однако я её (не)тор_пил.

 

Союз  

связывает.

 

 

3. ...лёгкую г_рмонию Растрелли он понял как другие (не)умели.

 

Союз  

связывает

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  ф1, ф2: РЯД 50 ИЗ ЗНАК;

УКАЗ
  Вывод.Цепь("Введите первую фамилию: ");
  Приём.Строка(ф1);
  Вывод.Цепь("^Введите вторую фамилию: ");
  Приём.Строка(ф2);
  ЕСЛИ ДЛИНА(ф1) > ДЛИНА(ф2) ТО
    Вывод.Цепь('Фамилия "');
    Вывод.Цепь(ф1);
    Вывод.Цепь('" имеет больше символов, чем "');
    Вывод.Цепь(ф2);
    Вывод.Цепь('".')
  АЕСЛИ ДЛИНА(ф1) < ДЛИНА(ф2) ТО
    Вывод.Цепь('Фамилия "');
    Вывод.Цепь(ф2);
    Вывод.Цепь('" имеет больше символов, чем "');
    Вывод.Цепь(ф1);
    Вывод.Цепь('".')
  ИНАЧЕ
    Вывод.Цепь("Фамилии одинаковой длины.")
  КОН

КОН Задание.