Var n,count:longint;
begin read(n);
count:=0;
repeat n:=n div 10;
inc(count);
until n=0;
writeln(count);
<span>end.</span>
Решения находятся в приложениях.
Красным цветом показаны результаты выполнения алгоритмов.
Var
x, y, q, r: integer;
begin
read(x,y);
r := x;
q := 0;
while r >= y do
begin
r := r - y;
q := q + 1
end;
write(q,' ',r)
<span> end.</span>
===== PascalABC.NET =====
function S(a: array[,] of integer) :=
a.Cols.Where(p -> p.All(q -> q >= 0)).SelectMany(p -> p).Sum;
function M(a: array[,] of integer): integer;
begin
var n := a.RowCount;
Result := integer.MaxValue;
var s: integer;
for var i := 0 to n - 2 do
begin
s := 0;
for var j := 0 to i do
s += Abs(a[i - j, j]);
if s < Result then
Result := s
end;
for var j := 1 to n - 1 do
begin
s := 0;
for var i := n - 1 downto j do
s += Abs(a[i, n - i + j - 1]);
if s < Result then
Result := s
end
end;
begin
var n := ReadInteger('n =');
var a := MatrRandom(n, n, -10, 30);
a.Println;
S(a).Println;
M(a).Println;
end.
Математик Эйлер... Швейцария (1707—1727)
Леонард Эйлер родился в 1707 году в семье базельского пастора Пауля Эйлера, друга семьи Бернулли. Рано проявил математические способности. Начальное обучение получил дома под руководством отца, учившегося некогда математике у Якоба Бернулли. Пастор готовил старшего сына к духовной карьере, однако занимался с ним и математикой — как в качестве развлечения, так и для развития логического мышления. Одновременно с обучением в гимназии мальчик увлечённо занимался математикой, а в последние гимназические годы посещал университетские лекции младшего брата Якоба, Иоганна Бернулли.
Базельский университет в XVII—XVIII веках
20 октября 1720 года 13-летний Леонард Эйлер стал студентом факультета искусств Базельского университета. Но любовь к математике направила Леонарда по иному пути. Вскоре способный мальчик обратил на себя внимание профессора Иоганна Бернулли. Он передал одарённому студенту математические статьи для изучения, а по субботам пригласил приходить к нему домой, чтобы совместно разбирать непонятное. В доме своего учителя Эйлер познакомился и подружился с сыновьями Бернулли — Даниилом и Николаем, также увлечённо занимавшимися математикой.
8 июня 1724 года 17-летний Леонард Эйлер произнёс на латыни речь о сравнении философских воззрений Декарта и Ньютона и был удостоен учёной степени магистра.
В последующие два года юный Эйлер написал несколько научных работ. Одна из них, «Диссертация по физике о звуке» , получившая благоприятный отзыв, была представлена на конкурс для замещения неожиданно освободившейся в Базельском университете должности профессора физики (1725). Но, несмотря на положительный отзыв, 19-летнего Эйлера сочли слишком юным, чтобы включить в число кандидатов на профессорскую кафедру. Надо отметить, что число научных вакансий в Швейцарии было совсем невелико. Поэтому братья Даниил и Николай Бернулли уехали в Россию, где как раз шла организация Академии наук; они обещали похлопотать там и о должности для Эйлера.
<span>В начале зимы 1726 года Эйлеру сообщили из Санкт-Петербурга: по рекомендации братьев Бернулли он приглашён на должность адъюнкта по физиологии с окладом 200 рублей [3]. Получение аванса для компенсации проездных расходов растянулось почти на год, и лишь 5 апреля 1727 года Эйлер навсегда покинул Швейцарию.</span>