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.
С блок схемой затруднения, сорян.
В микрофоне есть мимбрана которая передаёт информацию в компьютер.
в камере есть обьектив изоброжение поподает в матрицу
1. 5
2. 79
3. x=1, y=0 (см фото)