Function C(m,n:integer):integer;
begin
if (m=0)or(n=m) then C:=1
else C:=C(m,n-1)+C(m-1,n-1);
end;
var a,b:integer;
begin
readln(a,b);
writeln('C(',b,',',a,') = ',C(a,b));
end.
Пример:
5 10
<span>C(10,5) = 252</span>
Ответ:
Вид цикла - <em><u>вложенный</u></em> (3)
Объяснение:
Вложенный цикл, т.к. внутри <em>for</em><em> </em>находится ещё один <em>for</em>.
Поскольку повтор вопроса, будет повтор ответа)
program p1;
var
n,m,s:real;
i:integer;
a:array[1..7] of real;
begin
write('Write n: '); readln(n);
write('Write m: '); readln(m);
writeln('Enter the weight of things: ');
for i:=1 to 7 do
read(a[i]);
s:=0;
for i:=1 to 6 do
s:=s+a[i];
if s>20
then
begin
s:=(s-20)*n;
writeln('For luggage: ',s:0:2);
end
else
writeln('For luggage: ',s:0:2);
if a[7]>5
then
begin
a[7]:=(a[7]-5)*m;
writeln('For hand luggage: ',a[7]:0:2);
end
else
writeln('For hand luggage: ',a[7]:0:2);
readln
end.
А)Разбиваем буквы на пары: урок, весна, каникулы, информация, мокрому дождь не страшен.
б)Читаем с права на лево: арена, корзина, рюкзак.
в)Разбиваем слово на слоги и записываем каждый слог с права на лево: канал, гитара, телевизор.
г)Читаем слово через букву с лева на право а затем оставшийся буквы с права на лево:балкон, вагон, кабинет.
9-с, 8- d,5-d,10-a....!!!!
