Спо информатике: ) №1: дано четырехзначное число z. в переменные e, d, c, t присвойте значения единиц, десятков, сотен, тысяч заданного числа. №2: дано четырехзначное число ch, найти количество сотен этого числа одним оператором. других переменных не заводить.

1)

Var Z:integer;
E,D,C,T:byte;
Begin
Write('Z = ');ReadLn(Z);
E:=Z mod 10;
D:=(Z div 10) mod 10;
C:=(Z div 100) mod 10;
T:=Z div 1000;
WriteLn('E = ',E);
WriteLn('D = ',D);
WriteLn('C = ',C);
WriteLn('T = ',T);
End.

2)

Var
CH:integer;
Begin
Write('CH = ');
ReadLn(CH);
Write((CH div 100) mod 10)
End.

Результат сложения: 0110101011010010011101101000

Получили число 0110101011010010011101101000. В десятичном представлении это число имеет вид:

Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.

0110101011010010011101101000 = 227*0 + 226*1 + 225*1 + 224*0 + 223*1 + 222*0 + 221*1 + 220*0 + 219*1 + 218*1 + 217*0 + 216*1 + 215*0 + 214*0 + 213*1 + 212*0 + 211*0 + 210*1 + 29*1 + 28*1 + 27*0 + 26*1 + 25*1 + 24*0 + 23*1 + 22*0 + 21*0 + 20*0 = 0 + 67108864 + 33554432 + 0 + 8388608 + 0 + 2097152 + 0 + 524288 + 262144 + 0 + 65536 + 0 + 0 + 8192 + 0 + 0 + 1024 + 512 + 256 + 0 + 64 + 32 + 0 + 8 + 0 + 0 + 0 = 112011112

Результат сложения (в десятичном представлении): 112011112

1. Расчертить все поле горизонтальными пунктирными линиями.

НАЧ

ПОКА впереди НЕ стена

НЦ

ДЕЛАЙ линия

ДЕЛАЙ правый переход

ДЕЛАЙ линия

ДЕЛАЙ левый переход

КЦ

КОН

ПРОЦЕДУРА линия

ПОКА впереди НЕ стена

НЦ

ШАГ

ЕСЛИ впереди НЕ стена

ТО

ПРЫЖОК

ВСЁ

КЦ

КОНЕЦ ПРОЦЕДУРЫ

ПРОЦЕДУРА правый переход

ПОВОРОТ

ПОВОРОТ

ПОВОРОТ

ЕСЛИ впереди НЕ стена

ТО

ПРЫЖОК

ПОВОРОТ

ПОВОРОТ

ПОВОРОТ

ВСЁ

КОНЕЦ ПРОЦЕДУРЫ

ПРОЦЕДУРА левый переход

ПОВОРОТ

ЕСЛИ впереди НЕ стена

ТО

ПРЫЖОК

ПОВОРОТ

ВСЁ

КОНЕЦ ПРОЦЕДУРЫ

2) Нарисовать квадраты во всех углах поля.

НАЧ

ДЕЛАЙ квадрат

ДЕЛАЙ переход

ДЕЛАЙ квадрат

ДЕЛАЙ переход

ДЕЛАЙ квадрат

ДЕЛАЙ переход

ДЕЛАЙ квадрат

КОН

ПРОЦЕДУРА квадрат

ШАГ

ПОВОРОТ

ПОВОРОТ

ПОВОРОТ

ШАГ

ПОВОРОТ

ПОВОРОТ

ПОВОРОТ

ШАГ

ПОВОРОТ

ПОВОРОТ

ПОВОРОТ

ШАГ

ПОВОРОТ

ПОВОРОТ

ПОВОРОТ

КОНЕЦ ПРОЦЕДУРЫ

ПРОЦЕДУРА переход

ПОКА впереди НЕ стена

НЦ

ПРЫЖОК

КЦ

ПОВОРОТ

ПОВОРОТ

ПОВОРОТ

КОНЕЦ ПРОЦЕДУРЫ