Странное задание! Если число целое и двухзначное меньше 15, то это числа 10, 11, 12, 13 и 14. В восьмеричном представлении они больше десятичного значения на 2, т.е. 10₁₀ = 12₈, 11₁₀ = 13₈, ... 14₁₀ = 16₈
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Введите число от 10 до 14:'); Writeln('В восьмеричной системе оно записывается как ',n+2) end.
Пример Введите число от 10 до 14: 13 В восьмеричной системе оно записывается как 15
Const zs='01234567'; //цифры в 8 СС s:string; begin write('Введите число в 10 СС: '); readln(n); s:=''; while n>0 do begin s:=zs[n mod 8+1]+s; //берем остаток от деления на 8 и эту цифру пишем в начало строки n:=n div 8 //сокращаем число end; write('Число в 8 СС: ',s); readln end.
Это про зайца Var r,d,s,m,a:real; Begin; Write('Введите скорость зайца '); readln(r); Write('Введите скорость собаки '); readln(d); Write('Введите расстояние до леса '); readln(s); Write('Введите расстояние между ними '); readln(m); a:=s/r; if (d*a)>=(m+s) then writeln('Собака догонит зайца') else writeln('Собака не догонит зайца'); end.
Про круг Var p,d,l:real; Begin; Write('Введите периметр квадрата '); readln(p); p:=p/4; Write('Введите лину окружности '); readln(l); d:=(l/pi); if r<=p then writeln('Круг войдёт в квадрат') else writeln('Круг не войдёт в квадрат'); end.
Одноранговые сети: В сети присутствует некоторое количество машин, при этом каждая может связаться с любой из других. Каждая из этих машин может посылать запросы другим машинам на предоставление каких-либо ресурсов в пределах этой сети и, таким образом, выступать в роли клиента. Будучи сервером, каждая машина должна быть обрабатывать запросы от других машин в сети, отсылать то, что было за Каждая машина также должна выполнять некоторые вс и административные функции (например, хранить список других известных машин-«соседей» и поддерживать его актуальность). Любой член данной сети не гарантирует свое присутствие на постоянной основе. Он может появляться и исчезать в любой момент времени. Но при достижении определённого критического размера сети наступает такой момент, что в сети одновременно существует множество серверов с одинаковыми функциями. Пример такой сети: I2P, Gnutella2. сеть с использованием отдельного сервера: у такой сети все компьютеры связаны друг с другом через сервер а не напрямую. Для получения какой-либо информации с другого компьютера запрос поступает не на тот компьютер откуда должна быть взята информация а сначала поступает на сервер. Там эта информация обрабатывается, сервер ищет ответ и высылает его обратно.
Если число целое и двухзначное меньше 15, то это числа 10, 11, 12, 13 и 14. В восьмеричном представлении они больше десятичного значения на 2, т.е. 10₁₀ = 12₈, 11₁₀ = 13₈, ... 14₁₀ = 16₈
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите число от 10 до 14:');
Writeln('В восьмеричной системе оно записывается как ',n+2)
end.
Пример
Введите число от 10 до 14: 13
В восьмеричной системе оно записывается как 15