Написать программу оптимизации двоичного кода, которая сжимает серии повторяющихся цифр, формируя массив из количеств элементов. при этом множество единиц или нулей формируют новый массив. например серия [0,0,0,0,1,1,1,1,1,1,1,0,0,1,1,1,1] преобразуется в [4,7,2,4] - массив начинается с 0, и серия [1,1,1,0,0,0,0,0,0,0] формируется в [0,3,7] - т.к. массив начинается с 1, что означает, что есть нулевой 0 в начале массива.
готово. паскаль
Объяснение:
Задание 1
с = 0
Задание 2
var
n, m, c: integer;
begin
Write('Введите числа m и n >> ');
ReadLn(m, n);
if (m mod 5 <> 0) or (m < n) then
c := (m mod 10) + (n mod 10);
WriteLn('Сумма последних цифр этих чисел равна ', c);
end.
Задание 3
var
a, b, c: integer;
begin
Write('Введите числа a, b и c >> ');
ReadLn(a, b, c);
if (b < 50) and (b > 20) and (c < a) then
begin
WriteLn('Сумма этих чисел равна ', a + b + c);
WriteLn('Произведение этих чисел равно ', a * b * c);
end;
end.
1-ый
uses graphabc,crt;
var i:integer; h:real;
begin
randomize;
rectangle(280,130,320,320);
rectangle(250,10,350,260);
circle(300,55,35);
circle(300,135,35);
circle(300,215,35);
for i:=1 to 1000 do
begin
floodfill(300,55,clred);
delay(3000);
floodfill(300,55,clwhite);
delay(1000);
floodfill(300,135,clyellow);
delay(3000);
floodfill(300,135,clwhite);
delay(1000);
floodfill(300,215,clgreen);
delay(1000);
floodfill(300,215,clwhite);
delay(1000);
end;
end.
2-ой
Program Svetofor;
Uses crt;
var c:1..3;
begin clrscr;
randomize;
writeln('переход по сигналу светофора');
c:=random (3)+1;
gotoxy(35,11);
case c of
1:begin textcolor (red); writeln ('красный-стой!');end;
2:begin textcolor (yellow); writeln('желтый-приготовься!');end;
3:begin textcolor (green); writeln('зеленый-иди!');end;
end;
sleep(3000);
until keypressed;
End.