Помогите с паскалем1. написать алгоритм нахождения максимального среди 4 целых чисел.2. написать алгоритм проверки: имеются ли с
Помогите с паскалем 1. написать алгоритм нахождения максимального среди 4 целых чисел. 2. написать алгоритм проверки: имеются ли среди трех целых чисел два положительных значения. 3. написать алгоритм проверки: лежит ли точка с координатами х;у в первой координатной четверти?
Var a,b,c: integer; begin for a : = 1 to 4 do begin readln ( b) ; if b > c then c:=b; end; end.
<span>var a, b, c: integer; begin for b:=1 to 3 do begin readln ( a ); if a > 0 then c:= c+1; end; if c =2 then write ('est'); end. </span> var x,y:integer; begin readln(x,y); If (x>0) and (y>0) then writeln('est'); end.