Використання двійкового кодування Z4., Colossus, ABC. Зберігання програми в пам'яті Z4., Colossus.,ABC

program zadacha;

uses crt;

var a: array[1..6] of integer;

        max,i: integer;

begin

for i: =1 to 6 do readln(a[i]);

max: =a[1];

for i: =1 to 6 do if max > a[i] then max: =a[i];

writeln(max);

readln;

end.

вроде правильно..

1)  2, 5, 4, 7, 8, 9,  16,  11, 32

2           5

4           7

8           9

16         11

32

*2           +2

чётное порядковое число умножается на 2

нечётное порядковое число увеличивается на 2

2) 3, 8, 15,  24,  35, 48,  63, 80

3

3+5=8

8+7=15

15+9=24

24+11=35

35+13=48

48+15=63

63+17=80

(к предыдущему ответу прибавляется по порядку идущее нечётное число)

1)f0=(15*16^1)+(0*16^0)=240 (10 c.c), делим столбиком число 240 на 2 (и так далее продолжаем делить на 2 все частные числа) и записываем остатки с конца и получаем число 11110000(2 c.c)

2)1d4=(1*16^2)+(13*16^1)+(4*16^0)=256+208+4=468 (10 c.c), делим столбиком число 468 на 2 (и так далее продолжаем делить на 2 все частные числа)и записываем остатки с конца и получаем число 111010100 (2 c.c).

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

? "введите возвраст человека"

input a

if a> пенсионер then 1 else 2

1 ? "группа пенсионеров" : goto 10

2 if a> работник then 3 else 4

3 ? "группа работников" : goto 10

4 if a> ученик then 5 else 6

5 ? "группа учеников" : goto 10

6 ? "группа дошкольников"

10 end