13.333=10.000+3.000+300+3
var
i, ans: longint;
begin
i := 10;
ans := 1;
while i < 100 do
begin
if (i mod 13 = 0) and (i mod 2 <> 0) then ans := ans * i;
inc(i);
end;
writeln(ans);
end.
1)
program z1;
uses crt;
var n,i,s:integer;
begin
writeln('введите n');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
end.
program raf105;
const
s = 100;
var b,k,t: integer;
begin
writeln('Все возможные решения задачи:');
for b:=0 to (s div 5)+1 do
for k:=0 to ((s - b*5) div 3)+1 do
begin
t := trunc( (s - b*5 - k*3) / 0.5 );
if ((b+k+t) = 100) and ( (b*5+k*3+t*0.5)=s)
then begin
writeln;
writeln('Быков: ',b);
writeln('Коров: ',k);
writeln('Телят: ',t);
end;
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Лейбниц — один из важнейших представителей новоевропейской метафизики, в центре внимания которой — вопрос о том, что такое субстанция. Лейбниц развивает систему, получившую название субстанциальный плюрализм или монадология.
Важнейшими научными достижениями Лейбница являются то, что Лейбниц, независимо от Ньютона, создал математический анализ — дифференциальное и интегральное исчисление и в 1684 публикует первую в мире крупную работу по дифференциальному исчислению: «Новый метод максимумов и минимумов». В этой работе Лейбница излагаются основы дифференциального исчисления, правила дифференцирования выражений. Используя геометрическое истолкование отношения dy/dx, он кратко разъясняет признаки возрастания и убывания, максимума и минимума, выпуклости и вогнутости (следовательно, и достаточные условия экстремума для простейшего случая), а также точки перегиба. Попутно без каких-либо пояснений вводятся «разности разностей» (кратные дифференциалы), обозначаемые ddv.
Также создал комбинаторику как науку; только он во всей истории математики одинаково свободно работал как с непрерывным, так и с дискретным. Готфрид Вильгельм обосновал необходимость регулярно измерять у больных температуру тела. Задолго до Зигмунда Фрейда привёл доказательства существования подсознания человека.
Надеюсь помогла.
