Program mq;
var
age:integer;
a:array[1..3] of String = ('ребёнок','ученик','студент');
begin
Read(age);
case age of
1..6:WriteLn(a[1]);
7..18:WriteLn(a[2]);
19..25:WriteLn(a[3]);
end;
end.
С блок схемой затруднения, сорян.
Я сделала так. но я брала 10 . 3. 2.5. 6. 3.5 3. 10. 3. 2.5 6. 2.5 3 т.е в уменшиных клоичествах
1. 1 ПБ = 2^10 Тб = 2^20 Гб = 2^30 Мб = 2^40 КБ = 2^50 байт = 2^53 бит
2^10 = 1024