Var a, b, c: integer; begin writeln('Введите три числа:'); readln(a, b, c); if (a > b) and (a > c) then writeln(a); if (b > a) and (b > c) then writeln(b) else writeln(c) end.
Program Henry; var a,b,c,max:real; begin writeln('Здравствуйте, введите 3 числа: '); readln(a,b,c); if (a>b) and (a>c) then max:=a else if b<c then max:=c else max:=b; writeln('Наибольшее число: ',max); end.
Program skynet; var a,b,c,max:integer; begin writeln('Введите 3 целых числа'); readln(a,b,c); if a>b then max:=a else if b>c then max:=b else max:=c; writeln('Наибольшее число = ',max); end.
Var a, b, c: integer; begin writeln('Введите три числа:'); readln(a, b, c); if (a > b) and (a > c) then writeln(a); if (b > a) and (b > c) then writeln(b) else writeln(c) end.
begin
writeln('Введите три числа:');
readln(a, b, c);
if (a > b) and (a > c) then writeln(a);
if (b > a) and (b > c) then writeln(b)
else writeln(c)
end.
4:
var a: array [1..3] of integer;
i,min,max : integer;
begin
for i:= 1 to 3 do
begin
write('a[',i,'] = ');
read(a[i]);
writeln;
end;
min:= a[1];
max:= a[1];
for i:= 1 to 3 do
begin
if a[i] < min then
begin
min:= a[i];
end;
end;
for i:= 1 to 3 do
begin
if a[i] > max then
begin
max:= a[i];
end;
end;
writeln('min = ',min);
writeln('max = ',max);
end.
5:
var a: array [1..5] of integer;
i,max : integer;
begin
for i:= 1 to 5 do
begin
write('a[',i,'] = ');
read(a[i]);
writeln;
end;
max:= a[1];
for i:= 1 to 3 do
begin
if a[i] > max then
begin
max:= a[i];
end;
end;
writeln('max = ',max);
end.
Для типа integer
Program n_1;
var x,y,z:integer;
begin
writeln('Введите 3 числа:');
read(x, y, z);
if y>x then x:=y;
if z>x then x:=z;
writeln('Наибольшее число: ',x);
end.
Для типа real
Program n_1;
var x,y,z:real;
begin
writeln('Введите 3 числа:');
read(x, y, z);
if y>x then x:=y;
if z>x then x:=z;
writeln('Наибольшее число: ',x:0:5);
end.
если без циклов то
var a,b,c:integer;
begin
readln(a,b,c);
if(a >= b) and(a>=c) then write(a);
if(b >= a) and(b>=c) then write(b);
if(c >= a) and(c>=b) then write(c);
end
Объяснение:
3 12 8
нАИБОЛЬШЕЕ 12
Программа на Кумире прилагается.
var
a,b,c,max:real;
begin
writeln('Здравствуйте, введите 3 числа: ');
readln(a,b,c);
if (a>b) and (a>c) then
max:=a
else
if b<c then
max:=c
else
max:=b;
writeln('Наибольшее число: ',max);
end.
var a,b,c,max:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
if a>b then max:=a
else
if b>c then max:=b
else max:=c;
writeln('Наибольшее число = ',max);
end.
begin
writeln('Введите три числа:');
readln(a, b, c);
if (a > b) and (a > c) then writeln(a);
if (b > a) and (b > c) then writeln(b)
else writeln(c)
end.