Рекуррентные и статические, всплывающие
На 234 метро вырастет деревом через 2340 дней
В десятичной системе; в пятеричной системе
0-0
1-1 5^0=вес 1
2-2
3-3
4-4
5-10 цифра 0 имеет вес 1 цифра 1 имеет вес 5 (5^1) "5"-основание системы
6-11 цифра 1(правая) имеет вес 1(5^0=1), цифра 1(левая) имеет вес 5(5^1=5)
7-12 цифра 2 имеет вес 1(5^0=1), цифра 1 имеет вес 5(5^1=5)
8-13 3==1(вес) , 8===5(вес)
9-14
10-20 0 имеет вес 1(5^0=1), 2 имеет вес 5(5^1=5)
11-21
12-22
13-23
14-24
15-30
16-31
17-32 2===1, 3====5
18-33 3===1,3====5
19-34 4===1,3====5 в остальных случая аналогично
20-40
// PascalABC.NET
begin
var L1 := ReadlnReal('введите расстояние в км: ');
var L2 := ReadlnReal('введите расстояние в футах: ');
L2 := L2 * 0.305E-3; // перевод футов в километры
if L1 < L2 then
Println('L1 меньше')
else if L2 < L1 then
Println('L2 меньше')
else
Println('L1 = L2')
end.
//1
begin
for var i:=6 to 12 do print (i);
end.
//2
begin
for var i:=1 to 4 do writeln ('забота');
end.
//3
var sum: longint;
begin
for var i:=1 to 5 do inc (sum, readinteger('Введите число: '));
write ('Сумма пяти чисел: ', sum);
end.
//4
var sum, n: integer;
begin
for var i:=1 to 10 do
begin
n:=readinteger ('Введите число: ');
if (n mod 2)=0 then inc (sum, n);
end;
write ('Сумма четных чисел: ', sum);
end.
//5
var sum, r: integer;
begin
for var i:=1 to readinteger ('Введите n: ') do
begin
r:=readinteger ('Введите число: ');
if (r mod 3)=0 then inc (sum, r);
end;
write (sum);
end.
//6
begin
for var i:=0 to 9 do
if ((4204+10*i) mod 7) = 0 then writeln (i);
end.