Синформатикой . дано натуральное число. верно ли, что число принадлежит промежутку от а до в и кратно 3, 4 и 5. а и в . нужно составить программу в , но не с условием ( а чтоб все решалось через циклы, где это возможно! может кто знает.
Основные возможности Adobe Photoshop • Обработка цифровых и отсканированных фотоснимков, цветокоррекция, спецэффекты, устранение различных дефектов съемки. • Возможность создания многослойного изображения. При этом каждый элемент иллюстрации может быть сохранен в собственном, отдельном слое, который может редактироваться отдельно, перемещаться относительно других слоев и т.д. • Фотомонтаж, составление. • Ретуширование и восстановление старых фотографий. • Обработка эскизов, нарисованных вручную. • Улучшенные инструменты для работы с текстом . Используя различные инструменты, эффекты и фильтры можно получить очень интересные эффекты. • Создание текстур для 3D моделей. • Создание графических элементов дизайна и оформления для сайтов, документов, печати и полиграфии. • Подготовка изображений к печати или публикации в Интернете. • Поддержка различных стандартов изображения. • Поддержка различных графических форматов, как растровых , так и векторных .• Раскрашивание фотографий. Можно подкрашивать участки изображения на черно-белых фотографиях.
○ Лиц.соглашение (https://get.adobe.123com/ru/reader/) PS с ссылки убери 123
Много лишнего(наверно), только с олимпиады!Как есть. uses crt; var b,n,i,k,c,o,x1:integer; f,s,ch:string; r,g: text; A:array [0..9] of integer; begin assign (r,'C:\Bin.txt'); reset (r); readln (r,f); close (r); for i:=1 to length(f) do begin s:=copy(f,1,1); if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then delete(f,1,1); if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then begin x1:=pos(s,ch); if x1<>0 then begin delete(ch,x1,1); ch:=ch+s; end else ch:=ch+s; end; end; val(ch,n,o); N := Abs(N); for i := 0 to 9 do A[ i ] := 0; while N > 0 do begin Inc(A[ N mod 10]); N := N div 10; end; assign (g,'C:\Bout.txt'); rewrite (g); for i := 0 to 9 do while A[ i ] > 0 do begin Write(g,i); Dec(A[ i ]); end; close(g); end.
var
a, b, x: integer;
begin
readln(a, b, x);
while (x mod (3 * 4 * 5) = 0) and (x >= a) and (x <= b) do
begin
Writeln('да');
halt;
end;
Writeln('нет');
end.