Pascal: program Project; var a,b,c: integer; min, max: integer; begin Write('a='); Readln(a); Write('b='); Readln(b); Write('c='); Readln(c); if (a>b) and (a>c) then begin max:=a; if b>c then begin a:=c; c:=max; end else begin a:=b; b:=max; end end else begin if (b>a) and (b>c) then begin max:=b; if a>c then begin b:=c; c:=max; end else begin b:=a; a:=max; end end else begin max:=c; if a>b then begin c:=b; b:=max; end else begin c:=a; a:=max; end end end; Write('a=',a); Write('b=',b); Write('c=',c) end.
Современный компьютер может обрабатывать числовую, текстовую, графическую, звуковую и видео информацию. Все эти виды информации в компьютере представлены в двоичном коде, т. е. используется алфавит мощностью два (всего два символа 0 и 1). Связано это с тем, что удобно представлять информацию в виде последовательности электрических импульсов: импульс отсутствует (0), импульс есть (1). Такое кодирование принято называть двоичным, а сами логические последовательности нулей и единиц - машинным языком.
program Project;
var
a,b,c: integer;
min, max: integer;
begin
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
if (a>b) and (a>c) then
begin
max:=a;
if b>c then
begin
a:=c;
c:=max;
end
else
begin
a:=b;
b:=max;
end
end else
begin
if (b>a) and (b>c) then
begin
max:=b;
if a>c then
begin
b:=c;
c:=max;
end
else
begin
b:=a;
a:=max;
end
end else
begin
max:=c;
if a>b then
begin
c:=b;
b:=max;
end
else
begin
c:=a;
a:=max;
end
end
end;
Write('a=',a);
Write('b=',b);
Write('c=',c)
end.