Var s: string; i: integer; qp: integer; word: string; begin writeln('Введите предложение разделяя слова пробелами'); readln(s); qp:=0; word:=''; for i:=1 to length(s) do begin if s[i]=' ' then qp:=qp+1 else begin if qp=3 then word:=word+s[i]; end; if qp=4 then break; end; if word='' then writeln('четвёртое слово не присутствует') else writeln('искомое слово - ', word);
end.
{Пример} На pascal написана соответствующая программа искомое слово - соответствующая
Точнее сказать - чем word отличается от программы Writer из пакета OpenOffice. Word имеет больше функций. Это важно тем, кто много профессионально работает с текстами. Кстати, Word 2010 умеет сохранять в PDF. Зато Writer может читать все форматы Word, а Word не может читать формат Writer - формат .odt. Word - платный. Если сравнивать OpenOffice с Word 2007 и выше, то они отличаются друг от друга совершенно разным расположением кнопочек и панелей. Если ты привык к Word, то тяжело привыкать к OpenOffice. И наоборот. Это я знаю по себе. Но это - дело привычки. Есть целые предприятия, которые перешли но OpenOffice. Еще могу сказать, что Writer дольше запускается. Правда, потом работает без тормозов. Вывод: нельзя сказать, какой лучше. Если для себя - то достаточно OpenOffice поставить, ибо он уже стабильный и по-честному бесплатный.
Для удобства вычислений переведём размер сканируемого изображения в дюймы: 20,32 × 20,32 (см) = 8 × 8 (inch).
Сначала найдём количество пикселей по горизонтали, по вертикали, затем общее количество пикселей, исходя из разрешающей сканера. Зная, что каждый пиксель кодируется 4 битами, найдём объём памяти, необходимый для хранения графической информации, что и будет являться информационным объёмом файла.
1) 600 × 8 = 4800 (px) – количество пикселей по горизонтали.
2) 1200 × 8 = 9600 (px) – количество пикселей по вертикали.
s: string;
i: integer;
qp: integer;
word: string;
begin
writeln('Введите предложение разделяя слова пробелами');
readln(s);
qp:=0;
word:='';
for i:=1 to length(s) do begin
if s[i]=' ' then
qp:=qp+1
else begin
if qp=3 then word:=word+s[i];
end;
if qp=4 then
break;
end;
if word='' then
writeln('четвёртое слово не присутствует')
else
writeln('искомое слово - ', word);
end.
{Пример}
На pascal написана соответствующая программа
искомое слово - соответствующая