Uses Crt;
procedure MinMax(a,b:integer; var min,max:integer);
begin
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end
end;
var
x,y,mx,mn:integer;
begin
ClrScr;
Write('a,b= '); Read(x,y);
MinMax(x,y,mn,mx);
Writeln('min=',mn,', max=',mx);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
a,b= 163 97
min=97, max=163
Задача протестирована на pascalABC
Что нужно сделать чтобы вообще получить 21?
Прийти к нему из чисел 24 или 16.
В 24 мы можем прийти из 30 два раза сходив назад.
В 16 за три отхода назад на 3 прийти нельзя
-> ответ 3
вперед 5 6 раз
назад 3 3 раза
Slovo nachinaetsja i zakanchivaetsja na odnu i tu zhe bukvu. Eto slovo "кортик".
Esli bukva "и" imeet nomer 1 (to est' stoit na pervom meste), to progovarivaja alfavit dal'she, poluchaem bukvu "к", kotoraja budet tret'ej. I tak dalee so vsemi ostavshimisja bukvami - "р" na 9-m meste i "о" na 7-m meste
1. Переведем биты в байты 2^33/2^10*2^10*2^3=2^10 (МБ)=1024 (МБ)
2. Найдем кол-во дискет: 1024/1.4=731.4≈ 732
ответ: 732 дискеты