seerg0
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
---------- помогите написать программу очень надо!!! -----------
задача:
подсчитать количество строк заданной целочисленной матрицы, являющихся перестановкой чисел 1..n
а вот ещё одна:
дано натуральное число k. Напечатать k-ю цифру последовательности 1123581321... в которой выписаны подряд все числа Фибоначчи (каждое последующее число равно сумме двух предыдущих).
я её сделал вот так:
Код: Код:
var k,a1,a2,a3:integer;
s,a3s:string;
begin
write('k = ');
readln(k);
a1:=1;
a2:=1;
a3:=a1+a2;
s:='112';
while k >= length(s) do begin
a1:=a2;
a2:=a3;
a3:=a1+a2;
str(a3,a3s);
s:=s+a3s;
end;
writeln(k,'-я цифра последовательности = ',s[k]);
readln();
end.
|
я её делал наверно дня 3 и очень радовался, когда всё получилось)))))))))),но когда принес сдавать, то мне сказали,что надо её решить через вложеныые циклы(((((( а я е знаю как так сделать....
Помогите ПЛИЗЗЗЗ!!!!!!
Если можно, то пожалуйста решите эти два задания с объяснением... |
Всего записей: 13 | Зарегистр. 14-12-2009 | Отправлено: 19:42 15-12-2009 | Исправлено: seerg0, 19:45 15-12-2009 |
|
