var
a, b: real;
n: integer;
function arif_mem(a, b: real; n: integer): real;
begin
if n = 1 then arif_mem := a;
if n > 1 then arif_mem := arif_mem(a, b, n - 1) + b;
end;
function arif_sum(a, b: real; n: integer): real;
begin
if n = 1 then arif_sum := a;
if n > 1 then arif_sum := arif_sum(a, b, n - 1) + arif_mem(a, b, n);
end;
begin
write('введите первый член прогрессии:');
readln(a);
write('введите разность прогрессии:');
readln(b);
write('введите номер члена прогрессии:');
readln(n);
writeln(n, '-й член прогрессии равен :', arif_mem(a, b, n):8:2);
writeln('сумма ', n, ' членов прогрессии равна :', arif_sum(a, b, n):8:2);
end.
Program Pr1;
uses crt;
const n=100;
m=100;
var mas:array[1..n,1..m] of integer;
i,j,l,k,v:integer;
Begin
clrscr;
for j:=1 to m do
for i:=1 to n do begin
randomize;
mas[i,j]:=random(100);
end;
l:=0;v:=0;
for j:=1 to m do
for i:=1 to n do begin
k:=1;
while k<=m do if k=m then k:=k+1
else begin
l:=mas[i,k]+l;
k:=k+1;
end;
if mas[i,j]>l then v:=v+1;
l:=0;
end;
writeln(v);
end.
Это задача по комбинаторике
всего у нас 10 букв, но главное что они повторятся
У - 2
Т - 1
Р - 1
Ы - 1
И - 2
К - 1
Б - 2
Далее вычисляем кол-во перестановок с повторениями. (Формула в приложении с обьяснением из вики)
N = 10! / (2! * 2! * 2! * 1! * 1! * 1! * 1! ) = 10! / 8 = 453 600
<span>
</span>Заранее приготовьте кипяченую воду, добавьте в неё 1 ч.л. соли и размешайте. Насыпьте в миску нужное колличество мукислегка взбейте яйцо и вылейте в муку,положите подсолнечное масло и начинайте лить кипяченую воду и размешивать ложкой муку до однородной массы,далее собирите тесто, выложите его на стол и начинайте вымешивать, если будет прилипать к рукам, добавьте муки, вам придется приложить не много усилий, чтобы тщательно вымесить тесто до гладкого состояния. <span>Тесто должно быть не мягкое, но и не слишком тугое. Тесто положите в холод на 1 час.
</span><span>
Приготовьте мясо, я беру 400 грамм свинины и 400 грамм индейки, помелите вместе с луком на мясорубке, посолите, поперчите и добавьте мелко порезанную зелень. Для тех кто любит пожирнее, добавьте небольшой кусочек сала в мясорубку.
</span><span>Как приготовить пельмени - рецепт пельменей с фото
</span>После того как тесто полежало в холоде, начинайте лепить пельмени. У вас есть два варианта, раскатать скалкой большой пласт и вырезать рюмкой ровные кружки для пельменей. Я не люблю отходы, поэтому делаю из теста длинную тонкую колбаску. Режу её на кусочки по 1 см.,обваливаю их в муке и раскатываю, так и тесто не успевает засыхать и отходов не остается! Для того чтобы тесто не прилипало стол, скалку и доску для пельменей тщательно посыпайте мукой.Кладите мясо и тщательно разминайте края пельменей, так они не будут развариваться и будут очень нежными.<span>Воду для пельменей поставьте заранее, посолите её и положите лавровый лист. Выложите пельмени в кипящую воду, когда вода закипит, проварите их 2-3 минуты и аакуратно шумовкой выложите в миску со сливочным маслом. Вкусные домашние пельмени готовы! Не забудьте положить пару сюрпризов для ваших друзей!</span>
Числовые, текстовые, денежные, дата и т. д