Procedure swap(var a, b: real);
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
<span>end.
===========================
Без процедур:
var a, b, c, t: integer;
begin
readln(a, b, c);
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
if (b > c) then
begin
t := b;
b := c;
c := t;
end;
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
writeln(a, ' ', b, ' ', c);
<span>end.</span></span>
Var a,b,c:real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite c');
readln(c);
if a>b then
if b>c then writeln('naimenshee=', c) else writeln('naimenshee=', b)
else if a>c then writeln('naimenshee=', c) else writeln('naimenshee=', a);
end.
Ответ:
3364 бита
Объяснение:
В черно-белом изображении участвуют два цвета, поэтому точка кодируется одним битом. Общее количество точек 58×58 = 3364.
Столько же и бит.
Можно перевести в байты. 1 байт = 8 бит. 3364 / 8 = 420.5. Некруглое число, оставляем в битах.
Program n1;
var sum,a: integer;
begin
sum:=0;
repeat
readln(a);
if a<0 then sum:=sum+a;
until (a=0);
writeln(sum);
end.
Blade серверы.blade-серверы<span> отличаются </span>высокой эффективностью энергосбережения<span>. В новых системах используются новейшие </span><span>микропроцессоры AMD и Intel с низким напряжением питания...</span>