Размещено 4 года назад по предмету
Информатика
от dinanurmanova005
санның коды берілген). 2-мысал негізінде «Санның үлкені» тақырыбында жоба жұмы- if max <b then max:=b; if max <c then max:=C; 4.32-сурет. Модульдік ортадағы TM- wоні . ен- ген Практикалық жұмыс IH № 1- тапсырма да р- га сын жасаңдар. а yar a, B, C, max: integer; begin readln (a, , c); max:=a; procedure TForm1. Button1Click(Sender: TObject); var a,b,c, max:integer; begin a:=StrToInt(edit1.text); b:=StrToInt(edit2.text); C:=StrToInt(edit3.text); max:=a; if max <b then max:=b; if max < c then max:=c; edit4.text:=IntToStr(max); writeln(max); end. end; ; 4.33-сурет. Визуалды ортадағы программа коды программа коды