Var
s:string;
max,min,i,k:integer;
begin
write('Введите строку: ');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
begin
if s[i]=' ' then
begin
if k>max then max:=k;
if (k<min) or (min=0) then min:=k;
k:=-1;
end;
k:=k+1;
end;
writeln('Самое короткое: ',min,'; самое длиное: ',max);
<span>end.</span>
Программа и пример её работы - в прилагаемом файле.
<span>электронный процессор,драйверы устройств</span>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program pr; var x,y,z:real; function zxy(x,y:real):real; var f:real; begin f:=exp(y*ln(x)); zxy:=f; end; begin writeln('Введите х'); readln(x); writeln('Введите y'); readln(y); z:=zxy(x,y); writeln('z= ',z); end.
Общее кол-во пикселей: 100*100=10000
1 цвет кодируется битами = 2 байтами
Требуемый минимальный объем видеопамяти компьютера равен 20000 байтам или 19,53125 Кбайтам.
Ответ: 19,53125 Кбайт.