35 баллов! Информатика блох-схемы! Очень надо 1)Написать алгоритм нахождения максимального среди четырех целых чисел. 2)Среди чисел а, b, c определить количество положительных.
Answers & Comments
vase4kadup var a,b,c: integer; begin for a : = 1 to 4 do begin readln ( b) ; if b > c then c:=b; end; end.
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.
var x,y:integer; begin readln(x,y); If (x>0) and (y>0) then writeln('est'); end.
Answers & Comments
var a,b,c: integer;
begin
for a : = 1 to 4 do
begin
readln ( b) ;
if b > c then c:=b;
end;
end.
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.
var x,y:integer;
begin
readln(x,y);
If (x>0) and (y>0) then writeln('est');
end.