Задание N 1 На основе 2-го примера разработайте Текст модульной программы var a, B, C, max : integer; begin readin (a, theta, c) max= a; if max < b then max = b , if max < c then max = 0 ; writeln(max): end. Puc. 4.35 проект на тему «Наибольшее Код визуальной программы procedure TForm1, Button1Click(Sender. TObject); var a, b.c, max integer, begin a Stroint(edit 1. text); b = Stroint(edit2 text), Stroint(edit3 text); C = St max = d if max < b then max = b . if max <c then max = c edit4 textentToStr(max) end Puc 4.36​

  Лицензионное соглашение и ответственность
ВНИМАТЕЛЬНО ПРОЧТИТЕ УСЛОВИЯ ДАННОГО СОГЛАШЕНИЯ ПРЕД ИСПОЛЬЗОВАНИЕМ ПРОГРАММЫ. ИСПОЛЬЗОВАНИЕ ЛЮБОЙ ЧАСТИ ДАННОГО ДИСТРИБУТИВА ОЗНАЧАЕТ ВАШЕ СОГЛАСИЕ С НИЖЕНАПИСАННЫМ.ЕСЛИ ВАС ЭТО НЕ УСТРАИВАЕТ, ТО НЕ УСТАНАВЛИВАЙТЕ ПРОГРАММУ.
  ЛИЦЕНЗИЯ
"Light Alloy" является бесплатным, freeware-проприетарным программным продуктом.
  ОБЯЗАТЕЛЬСТВАЭТОТ ПРОДУКТ ПРЕДСТАВЛЕН "AS-IS" БЕЗ КАКИХ - ЛИБО ОБЯЗАТЕЛЬСТВ И ГАРАНТИЙ КАК ЯВНОГО, ТАК И НЕЯВНОГО ВИДА. АВТОР ЭТОГО МУЛЬТИМЕДИА ПЛЕЕРА НЕ МОЖЕТ БЫТЬ ПРИЗНАН ОТВЕТСТВЕННЫМ ЗА ЛЮБЫЕ ПОСЛЕДСТВИЯ, СВЯЗАННЫЕ С ИСПОЛЬЗОВАНИЕМ ДАННОГО ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ, В КАКОЙ БЫ ФОРМЕ ОНИ НЕ БЫЛИ.АВТОР НЕ ОТВЕЧАЕТ, НЕ ГАРАНТИРУЕТ, НЕ ДАЕТ НИКАКИХ ЗАКЛЮЧЕНИЙ ПО ВОПРОСАМ ТОЧНОСТИ, НАДЕЖНОСТИ,КАЧЕСТВА ИЛИ ДРУГИХ ХАРАКТЕРИСТИК ДАННОГО ПРОДУКТА.ПРИ ИСПОЛЬЗОВАНИИ ДАННОГО ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ ВЕСЬ РИСК ВЫ БЕРЕТЕ НА СЕБЯ.
ЕСЛИ ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ПРИЧИНИЛО ВАМ УЩЕРБ, ТО АВТОР НЕ ПРИНИМАЕТ НИКАКОГО УЧАСТИЯ В ВОЗМЕЩЕНИИ СТОИМОСТИ ВАШИХ УБЫТКОВ И ЗАТРАТ.
Перед установкой "Light Alloy" вы должны согласиться со всем выше написанным.