60.Жесткий диск 61.Диск 62 .память этого человека
Поскольку за последним словом в предложении пробела нет, то количество слов в предложении будет на единицу больше количества пробелов.
var
i,n:integer;
s:string;
begin
Writeln('Введите текст, разделяя слова ровно одним пробелом');
Readln(s);
n:=0;
for i:=1 to Length(s) do
if s[i]=' ' then Inc(n);
Writeln('Количество слов в тексте равно ',n+1)
end.
<em><u>Тестовое решение:</u></em>
Введите текст, разделяя слова ровно одним пробелом
Это текст, количество слов в котором нам нужно посчитать.
Количество слов в тексте равно 9
Объем видеофайла=(объем видео + стерео звука) * время/сжатие
<span>видео шир выс объем кадра кадры видео бит
</span><span> 640 480 307200 25 7680000
</span><span>звук частота глуб каналы звук бит
</span><span> 22000 16 2 704000
</span><span>видео+ звук время время объем виде-файла без сжатия
</span><span>8384000 5мин*60 300 2515200000</span>
объем виде-файла с сжатием
251520000 бит
<span>245625 Кбит</span>
Var a:array[1..100] of integer;
i,n,max,min:integer;
begin
writeln('Skolko elementov');
readln(n);
for i:=1 to n do begin write('a[',i,']='); read(a[i]); end;
max:=a[1]; min:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]<min then min:=a[i];
writeln('Max - Min =' ,max-min);
<span>end.</span>
