//прога на Pascal`e
var
x: real;
function f (a:real):real;
begin
if a<=0 then f:=sqr(a) else f:=a/10;
end;
begin
write ('Введите x: ');
readln (x);
write ('f(', x, ') = ', f(x) );
end.
Const n=20;
var a:array [1..n] of integer;
s,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(90);
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if (a[i] mod 2 <> 0)and(a[i] mod 3 = 0) then s:=s+a[i];
writeln('s=',s);
end.
Пример:
Исходный массив:
66 14 74 6 15 65 42 37 34 0 63 75 69 17 50 15 78 14 7 35
s=237
Программа написана на языке Pascal
В том, что каждый слой можно выделить и редактировать отдельно, не затрагивая оригинал и другие слои, а также безболезненно удалить. Также каждому слою можно задать индивидуальные настройки+достижение желаемого результата с помощью перемещения слоев.
Внешние устройства:Клавиатура,мышь