Из целого бидона в 8 литров переливаем в 5 литровую, получаем 3 литра в 8 литровой бутылке и 5 литров в 5 литровой и 0 в трехлитровой
Из 5 литрового бидона переливаем 3 литровый, получаем 3 литра в 8 литром бидоне, 2 литра в 5 литровом бидоне и 3 литра в 3 литровом бидоне
Затем из 3 литрового бидона переливаем в 8 литровый бидон 3 литра, получаем 6 литров в 8 литровом бидоне, 2 литра в 5 литровом и 0 в 3 литровом
Затем из 5 литрового переливаем в 3 литровый бидон 2 литра, получаем 6 литров в 8 литровом бидоне, 0 в 5 литровом бидоне и 2 в 3 литровом бидоне
Из 8 литрового бидона переливаем 5 литров в 5 литровый бидон, получаем 1 литр в 8 литровом бидоне, 5 литров в 5 литровом бидоне, 2 литра в 3 литровом бидоне
Переливаем из 5 литрового бидона в 3 литровый бидон 1 литр (там уже есть 2), получаем 1 литр в 8 литровом бидоне, 4 литра в 5 литровой банке и 3 литра в 3 литровом бидоне
Переливаем из 3 литрового бидона в 8 литровый бидон 3 литра, получаем 4 литра в 8 литровой бидоне и 4 литра в 5 литровом бидоне
В виде цифровой таблицы*
8 5 3
8 0 0
3 5 0
3 2 3
6 2 0
6 0 2
1 5 2
1 4 3
<span>4 4 0 </span>
Можно как то так:
var
M: real;
x: integer;
begin
for x := 1 to 100 do
begin
M := 2 / Sin(x);
Println('x=', x, '; M=', M);
end;
end.
Цель: дойти до дома
↓
Маша→управляет медведем
↓
Результат: добралась до дома и угостила родных пирожками
1 символ = 1 байт
40*50*10=20000 символов всего
12500 байт = 1562,5 бит
20000:1562,5=13 (приблизительно)
N-мощность алфавита
2^13=8192
Ответ: N=8192
1)
Ввод чисел в массив:
program vvod_mass;
var
a: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
write('a[', i, ']='); readln(a[i]);
end;
end.
2)
program otric;
var
a: array[1..10] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 10 do if a[i]<0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
3)
program chetniy;
var
a: array[1..8] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 8 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 8 do if a[i] mod 2 = 0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.