if (st[1] = st[3]) then for i:=1 to 3 do begin val(st[i],tmp,err); res:=res+tmp; end else begin res:=1; for i:=1 to 3 do begin val(st[i],tmp,err); res:=res*tmp; end; end;
Основные возможности Adobe Photoshop • Обработка цифровых и отсканированных фотоснимков, цветокоррекция, спецэффекты, устранение различных дефектов съемки. • Возможность создания многослойного изображения. При этом каждый элемент иллюстрации может быть сохранен в собственном, отдельном слое, который может редактироваться отдельно, перемещаться относительно других слоев и т.д. • Фотомонтаж, составление. • Ретуширование и восстановление старых фотографий. • Обработка эскизов, нарисованных вручную. • Улучшенные инструменты для работы с текстом . Используя различные инструменты, эффекты и фильтры можно получить очень интересные эффекты. • Создание текстур для 3D моделей. • Создание графических элементов дизайна и оформления для сайтов, документов, печати и полиграфии. • Подготовка изображений к печати или публикации в Интернете. • Поддержка различных стандартов изображения. • Поддержка различных графических форматов, как растровых , так и векторных .• Раскрашивание фотографий. Можно подкрашивать участки изображения на черно-белых фотографиях.
○ Лиц.соглашение (https://get.adobe.123com/ru/reader/) PS с ссылки убери 123
st: string;
i,tmp,res,err:integer;
begin
readln(st);
if (st[1] = st[3]) then
for i:=1 to 3 do
begin val(st[i],tmp,err); res:=res+tmp; end
else begin res:=1; for i:=1 to 3 do
begin val(st[i],tmp,err); res:=res*tmp;
end;
end;
writeln(res);
end.