заполните таблицу. (30 )

события источник информации приемник информации информационный носитель

решение учеником у доски

измерение давления врачом у пациента

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

просмотр фильма по телевизору

исполнение учеником музыкального фрагмента на гитаре

Событие: решение . источник ифнормации: учитель. приемник информации: ученик. информационный носитель: доска.событие: измерения давления. источник ифнормации: пациент. приемник информации: врач. информационный носитель: тонометр.событие: воспроизведение аудиофайла. источник информации: пользователь. приемник информации: сайт. информациональнный носитель: пк/телефон.событие: воспроизведение: видео и аудиофайла. источник информации: пользователь. приемник информации: телевизор. информациональный носитель: телевизор.событие: воспроизведение музыкального фрагмента в живую. источник информации: ученик. приемник информации: ближайшие слушатели. информациональнный носитель: гитара.

var

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

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.

б< т

к< л

с< е

липа ниже березы

к< л< б< т

сосна выше тополя

к< л< б< т< с< е

самое высокое ель

самое низкое клен