Жёсткий диск это я так помню
Неисчерпаемый источник информации в сети - это люди
===== PacalABC.NET =====
begin
var L := ReadReal('Укажи расстояние до танка:');
Writeln('Программа завершается при попадании в танк');
Writeln('или при вводе числа, не попадающего в диапазон от 0 до 90');
var (g, v0, eps) := (9.81, 100.0, 1.0);
while True do
begin
var a := ReadReal('Введи угол наклона пушки, град:');
if not a.InRange(0.0, 90.0) then Exit;
var d := L - Sqr(v0) * Sin(2 * DegToRad(a)) / g;
if Abs(d) <= eps then
begin
Println('Ура! Попадание!');
Exit
end
else if d > 0 then
Println('Недолет')
else
Println('Перелет')
end
end.
<span>uses crt;
var c:char;
begin
clrscr;
write('Введите символ ');
readln(c);
case c of
'0'..'9':write('Это десятичная цифра, ее код ',ord(c));
'A'..'Z':write('Это прописная латинская буква, ее код ',ord(c));
'a'..'z':write('Это строчная латинская буква, ее код ',ord(c));
'+','-','*':write('Это знак арифметического действия, его код ',ord(c));
//убрал знак /, он в спец. символах
';','<','=','>','?','[',']','{','}','\','/':write('Это служебный символ, его код ',ord(c));
else write('Символ не входит в указанный список')
end;
readln
end.</span>
Каждому разряду восьмеричной системы соответствуют ровно 3 разряда двоичной, например,
. Следовательно, четырехзначное восьмеричное число в двоичной системе будет лежать между числами
1 000 000 000 и 111 111 111 111 (включая). Теперь рассмотрим условие минимальности. Ясно, что первая группа двоичных разрядов должна быть одной единицей, т.к. в противном случае число не будет наименьшим. После этого должны следовать нули, т.к. из оставшихся кандидатов все числа, в которых на втором месте 0, меньше, чем те, у которых так 1. Аналогично, третье и четвертое место занимают 0. Значит, искомое число в двоичной системе выглядит так: 1 000 111 111. Соответственно, в восьмеричной системе это 1077, а в десятичной - 575.