Алгори́тм — набор инструкций, описывающих порядок действий исполнителя для достижения некоторого результата.
Для быстрого доступа к программам, документам и другим объектам
В двоичную:
1)<span>18(10) = 10010(2)
</span>2) 7(10)<span> = 111(</span>2)
3) <span>1999(10) = 11111001111(2)
Получаем: 10010.111.</span>11111001111
В восьмиричную:
1) <span>18(10) = 22(8)
</span>2) 7(10)<span> = 7</span>(8)
3) <span>1999(10) = 3717(8)
</span>
Получаем: 22.7.3717
В шестнадцатиричную:
1) <span>18(10) = 12(16)</span>
2) 7(10)<span> = 7(</span>16)
3) 1999(10)<span> = 7CF(</span>16)
Получаем: 12.7.7CF
Var a: real;
i, k: integer;
begin
readln(k);
for i := 1 to k do
a := sqrt(2 + a);
writeln(a);
<span>end.
Вот так, насколько я понимаю: вычисляем с конца корень из 2, потом к нему прибавляем 2 и опять вычисляем корень... И опять х) В общем, должно получится</span>
Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.