1. с
3.а
4.так то иерхарический, но тут скорее вербальный подойдёт
6b
7b
9.процесс замены реального объекта (процесса, явления) моделью, отражающей его существенные признаки с точки зрения достижения конкретной цели; скорее b
12.b
<span>13. с (совокупность записанных на языке математики формул, отражающих те или иные свойства объекта-оригинала или его поведение)</span>
<span>Количество бит информации в сообщении "пойманная в пруду рыба - карп" (всего в пруду 256 карасей, 44 щуки, 100 карпов) , равно: 2; 4; 3; 5; 1.</span>
<span>uses crt;
const s='Софокл';
var n,m,i,j,cf,ct:integer;
begin
randomize;
n:=25;
m:=(80)div n;
for i:=1 to n do
begin
gotoXY(m*(i-1),i);
cf:=random(9)+8;//от голубого до желтого
ct:=random(9);//от синего до серого
textbackground(cf);
textcolor(ct);
write(s);
end;
end. попробуй это </span>
Program proga;
var str1,str2,str3:string;
input:Text;
begin
Assign(input,'file.txt');
reset(input);
readln(input,str1);
readln(input,str2);
readln(input,str3);
if(length(str1)>length(str3)and length(str3)) then
writeln('1 строка самая длинная');
else if length(str2)>length(str3) and length(str1) then
writeln('2 строка самая длинная');
else if length(str3)>length(str1) and length(str2) then
writeln('3 строка самая длинная');
close(input);
end.
P.S файл со строками надо предварительно создать в папке с Exe файлом программы