Var s,st: string;
<span> i,k: integer;
</span><span>begin
</span><span> st:='abcdefghqijklmnoprstuvwxyz';
</span><span> write('строка: '); readln(s);
</span><span> k:=0;
</span><span> for i:=1 to length(s) do
</span><span> if pos(s[i],st)>0 then k:=k+1;
</span><span> writeln(k);
</span><span>end.
</span>строка: Это lat строка.
<span>3
</span>
1 гб-1024 мбайта.
Они существуют для записи небольших файлов (до 1000мб) .Так же туда может поместиться 1 час видео.
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.
это для а и б,а что касается и то нужно знать сколько всего сосудов.
<span><span><span>
<span>
</span></span></span></span><span><span><span>
<span>
Свойства файла
</span></span><span>
Имя файла </span></span></span>word<span><span>
</span>
тип </span>Текстовый документ<span><span>
</span>
приложение </span>Microsoft Office Word<span><span>
</span>размер </span><span>36 МБ</span><span><span><span>
</span><span> Дата создания
</span></span><span>20.02.2017
</span></span>