const n=5;
a:array[1..n] of string = ('Москва','Владимир','Воронеж','Архангельск','Екатеринбург');
var i,m,mi: integer;
begin
m:=length(a[1]);
mi:=1;
for i:=2 to n do if length(a[i])>m then
begin
m:=length(a[i]);
mi:=i
end;
writeln;
writeln(a[mi])
end.
var d,p,g,h,r,s,m:real;
begin
D:=1200;
g:=9.8;
s:=3.14*r;
Write('vvedite H i R zceres probel:');
readln(h,r);
p:=d*g*h;
m:=d*h*s;
end.
это для а и б,а что касается и то нужно знать сколько всего сосудов.
На каждый цвет 1 бит. Всего 64 бита = 8 байт
Оба 3й вариант. первое у вас правильно отмечено
№217
Ячейка C2 = 4
Ячейка C3 = 7.75
Если удалить значение ячейки A1, то
Ячейка C2 = 3
Ячейка C3 = 9
P.S. №216 размазан и не полностью сфотан, поэтому к сожалению не могу решить((((