|
|
|
|||||||
| Знаете ли Вы, что ... | |
 |
...нарушения правил форума наказываются. Старайтесь их не нарушать. |
| << Предыдущий совет - Случайный совет - Следующий совет >> | |
| Pascal, Delphi & Builder Вопросы программирования касающиеся Pascal и Delphi |
| Ответить |
|
|
Опции темы | Опции просмотра |
|
|
11.05.2009 23:03
|
#1 | ||||||
   
Сообщений: 13,210
+ 4,958
9,176/3,940
– 170
137/105
  |
Цитата:
Код:
Readln(N);
Readln(K);
L:=1;
Write('0.');
for i := 1 to k do
begin
L:=L*10;
write(L div N);
L:=L mod N;
end;
end.
__________________
Тот факт, что медуза выжила 650 миллионов лет без мозгов, даёт надежду многим. Последний раз редактировалось Nadir Zaitov; 11.05.2009 в 23:07. |
||||||
|
|
Ответить |
|
Комбинированный вид