Задание 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​

okcanaceninap06wvq    1   04.04.2021 16:08    1