104 006 080......................
Символьная- около 1950 года
пиксельная- около 1980 года
линейная- низнаю
геометрическая- 2008-2009 года, но исходя из этих 3, то символьная, т.к они идут последовательно
Var a, b, i, c :integer;
begin
<span> read (a, b); </span>// вводим a и b
for i:=1 to 5 do
begin
<span> c:=random(b-a)+a; </span>// присваиваем рандомные числа в заданномпромежутке
<span> writeln (c); </span>// выводим число
end;
<span>end.</span>
110010012 в двоичной системе счисления и хотите перевести его в десятичную. Делаем это вот таким образом : 110010012<span> = 1∙2^7</span>+1∙2^6+0∙2^5+0∙2^4+1∙2^3+0∙2^2+0∙2^1+1∙2^0<span> = 128+64+0+0+8+0+0+1 = 201</span>
1.
Var A,B : Integer;
Begin
Readln(A,B);
If A>B then Writeln(A,' ',B*B) else Writeln(B,' ',A*A)
end.
2.
Var A : Byte;
Begin
Readln(A);
Case A of
1..3 : Writeln('Первый квартал');
4..6 : Writeln('Второй квартал');
7..9 : Writeln('Третий квартал');
10..12 : Writeln('Четвертый квартал');
end;
end.