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
V-IV тысячелетие до н.э. Первые следы иероглифического письма в Древнем Египте
II-I тысячелетие до н.э. Появление алфавитного письма в Финикии
II век н.э. Изобретение технологии изготовления бумаги в Китае
Середина XV в. Начало книгопечатания в Европе
Середина XVI в. Начало книгопечатания в России
1839 г. Изобретение фотографии
70-е гг. XIX в. Первая запись звука с помощью фонографа
1895 г. Демонстрация первого кинофильма
20-е гг. XX в. Изобретение магнитофона
60-е гг. XX в. Появление первых жестких дисков для компьютеров
<span>80-е гг. XX в. Появление первых лазерных дисков </span>
Const
n = 10;
var
i, c: integer;
a, w: array[1..n] of integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i], ' ');
end;
writeln;
c := 0;
for i := 1 to n do
if a[i] > 0 then
begin
c := c + 1;
w[c] := a[i];
end;
writeln('Кол-во положительных элементов: ', c);
for i := 1 to n do
begin
if a[i] <= 0 then
begin
c := c + 1;
w[c] := a[i];
end;
end;
writeln('Результат:');
for i := 1 to c do
write(w[i], ' ');
end.
10бит 20бит 2байта 1010байтов 1Кбайт