Задания Задание № 1
Построй модель «Лестница» (рис. 4).
Инструменты, необходимые для построе-
ния данной модели:
1. Прямоугольник.
2. Линия.
3. Тяни-Толкай.
4. Заливка.
Рис. 4. Модель «Лестница»
Задание №2
Построй часть кирпичной стены (рис. 5). Выполняя это задание, ты
научишься перемещать объекты.
Рис. 5. Модель кладки стены
49 ​

революция 1917 года и великая отечественная война (1941-1945)

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

100*1000000/8=12500000 байт в секунду

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.