Код PascalABC.NET 3.2:
Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.
ПРАВДА НЕ СОВСЕМ УВЕРЕНА ЧТО ЭТО ТО ЧТО ТЕБЕ НУЖНО ПОСМОТРИ МОЖЕТ ПОМОЖЕТ основные возможности редактора Paint. Редактор Paint имеет возможность загрузки, редактирования и записи в файл полноэкранных изображений. Поскольку редактор поддерживает технологию OLE, то полученные рисунки можно скопировать в буфер, оформить их в виде объекта и встраивать в тексты редактора WordPad и иных Windows-приложений. При этом редактор Paint может быть как сервером, так и клиентом при динамическом обмене данными между различными приложениями.<span>Одна из ценных возможностей - отмена результатов последних операций. Она реализуется командой Отменить в позиции Правка Главного меню. Другая весьма ценная команда - возможность детального (с наблюдением каждого пикселя) просмотра рисунков. Для этого используется команда Масштаб в позиции ВидГлавного меню. КомандаПросмотреть рисунок позволяет наблюдать полноэкранное изображение.</span><span>Окно программы Paint. Графический -редактор Paint одновременно может работать только с одним документом, поэтому окно документа является частью окна программы, как показано на рис. 1.</span>Главное меню редактора Paint содержит следующие позиции:<span>· Файл - такие же операции с файлами, как и в редакторе WordPad (задание нового файла, загрузка файла, запись файла с текущим и измененным именем, распечатка файла принтером), дополнены опциями: замостить рабочий стол Windows, в центр рабочего стола Windows.</span><span>· Правка - редактирование файла, работа с буфером обмена, отмена предыдущих действий и повтор результатов отмененного действия</span>· Вид - управление выводом меню инструментов и цветов, панелью атрибутов текста, а также статусной строки, управление масштабом и обзором изображений.<span>· Рисунок - операции с выделенными изображениями (поворот, инверсия, изменение атрибутов, очистка, изменение параметров рисунка).</span><span>· Палитра - установка опций графического редактора (установка и запись палитры цветов).</span><span>· Справка - обращение к справке по графическому редактору.</span>Кроме стандартных элементов (заголовка и горизонтального меню), окно имеет горизонтальную и вертикальную полосы прокрутки, а также четыре специальные области:· рабочее поле;· панель инструментов;· палитру цветов;
<span>· поле дополнительных параметров инструментов</span>.
var
a, b, a1, b1, cost, w, h: integer;
begin
readln(a, b, a1, b1, cost);
w := a div a1;
if a mod a1 <> 0 then inc(w);
h := b div b1;
if b mod b1 <> 0 then inc(h);
writeln(w * h);
writeln(w * h * cost);
end.
<span>Сейчас в основном используются 8 битные кодировки, постепенно идет переход на юникод.</span>