Var a:integer; s:string;
BEGIN
write('Введите число: ');
readln(a);
s:='';
while a>0 do
begin
if a mod 2=0 then s:='0'+s else s:='1'+s;
a:=a div 2;
end;
writeln(s);
END.
Пример:
<span>Введите число: 131
10000011</span>
1 Документы
2 Образование
3 Отчёты
4 Экономика
5 Год
6 Подпист
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>1. Современное решение</u>
begin
Writeln('Время падения камня, c: ',Sqrt(2*ReadReal('h=')/9.8):0:1)
end.
<u>2. Обычно в школе решают так</u>
var
t,h:real;
begin
Write('h='); Read(h);
t:=Sqrt(2*h/9.8);
Writeln('Время падения камня, c: ',t:0:1)
end.
<u>Пример</u>
h=35
Время падения камня, c: 2.7
Вот значения при которых мы получим такой ответ:
9 10 11 12 13 14 15 16 17 18 19 20
Наибольшее = 20.
Прости, нашел я это глупым методом поставив цикл for k:0 to 1000000
и выводя все значения. Ибо нету времени разбираться... Не знаю так-же что такое longint , потом обязательно для себя рассмотрю что это :)
Вот пример того как я это нашел, хоть медот и тупой, но он работает:
var k, i,max,m : longint;
function f(n: longint): longint;
begin f := n * n * n;
end;
function g(n: longint): longint;
begin g := 3*n + 3;
end;
begin i := 1;
for k:=0 to 1000000 do begin
while f(i) < g(k) do i := i+1;
if i=4 then writeln(k);
end;
end.