I=2байта
символов всего 55 если конечно в конце предложения нет точки.
тогда: кол-во символов умнажаем на 2(байта)=55×2=110байт, а если вконце ещё стоит точка то кол-во символов 56 и мы делаем по такому же принцепу 56×2=112 вот и всё.
На дед мороза надейся ,а сам не плашай
Program massivy;
var array1: array [1..14] of integer;
array2: array [1..10] of string;
array3: array [1..7] of string;
i, b:integer;
begin
for i:= 1 to 14 do
array1[i]:=random(-5, 5);
for i:= 1 to 10 do
array2[i]:='Слово';
for i:=1 to 7 do
readln(array3[i]);
end.
Считается, что слова отделяются друг от друга пробелом.
var s:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s:=s+' ';
p:=pos(' ',s);
while p>0 do
begin
if pos('ов ',s)=p-2 then writeln(copy(s,1,p-1));
delete(s,1,p);
p:=pos(' ',s);
end;
end.
Пример:
Введите строку:
пример кров слово шов олово ров
кров
шов
ров
1) 1гб делите на 0.5 гб =500
2)700+500=1200
Извините если не правильно понял