Var x,y,z:integer;
procedure p(var a,b,c:integer);
var t:integer;
begin
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;
end;
begin
writeln('Введите 3 числа:');
readln(x,y,z);
p(x,y,z);
writeln('x = ',x,' y = ',y,' z = ',z);
end.
Пример:
Введите 3 числа:
8 5 2
x = 2 y = 5 z = 8
Ответ:
Миша. Белый гриб, который они нашли у озера.
Объяснение:
Миша. Одно истинное -это означает что первое уже верно, а второе ложное( то есть все последние два варианта Валеры и Игната уже не верны)
2048 символов. <span>1 МБ = 1024 Кбайт .</span><span>1/512 МБ = 2 Кбайта.
</span>
<span>Итак, 2 Кбайта = 2048 байт = 2048 символов. </span>
<span>Итого, 1 символ весит 1 байт. </span>
<span>В 1 байт можно вставить числа от 0 до 255, в алфавите 256 символов.</span>