var m,k:integer;
n:real;
begin
writeln('Введите n и m через пробел:');
read(n,m);
k:=0;
writeln('Шаг ',k,', n=',n,', m=',m);
while m >= 6 do begin
m:=m-2;
n:=n*2;
k:=k+1;
writeln('Шаг ',k,', n=',n,', m=',m);
end;
writeln('n=',n,', m=',m);
end.
Результат:
Введите n и m через пробел:
1 10
Шаг 0, n=1, m=10
Шаг 1, n=2, m=8
Шаг 2, n=4, m=6
Шаг 3, n=8, m=4
n=8, m=4
Берём 2 людоедов перевозим их на 2 берег берём с самой 1 людоеда плывём на 1 высаживаем людоеда и берём 2 людей перевозим на 2 высаживаем берём людоеда плывём на 1 берег берём 2 людоеда и везём на 2 берег)
1 дюйм = 2,54 см
7,62 см * 7,62 см = 3 дюйма * 3 дюйма
Количество точек сканированного изображения = 1200*1200*3*3
32 бита = 32/8 байт = 4 байта
Объем изображения = 1200*1200*3*3*4 байт = 1200*1200*3*3*4/1024 Кбайт = 50625 Кбайт = 50625/1024 Мбайт ≈ 50 Мбайт
Очевидно, что в подмножество войдут сигналы, для которых значение будет не меньше 1, поскольку меньшие значения уменьшают произведение.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),0,99).Select(t->0.1*t).ToArray;
a.Println.Where(t->t>=1.0).Println
end.
<u>Пример</u>
n= 15
1.3 2.8 0.7 5.1 1 0.9 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
1.3 2.8 5.1 1 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
1) while. Потому что проверка условия происходит сразу же, и если будет ложь, то цикл вообще выполняться не будет.
2) repeat/until
3) repeat
B=B-A
Until A4)
а, в: алгоритм циклической структуры
б: алгоритм разветвляющейся структуры
г: алгоритм линейной структуры
5) б
6) х: 13, у: 12
7) х:4, у: 12
8) 24
9:
...
А:=16;
B:=2;
While (B<>32) do
Begin
B:=B*2;
A:=A+2;
End;
...
