//Pascal ABC.NET v3.1 сборка 1219
Var
y,x:real;
begin
readln(x);
if x<=0 then
begin
writeln('Выход за пределы ОДЗ');
exit;
end;
y:=power(x,3)-(sqr(x)-x+3)/sqrt(x);
writeln('y=',y);
end.
Пример ввода:
1.2
Пример вывода:
y=-1.2297018105279
Часть первая 1 задание файлы документов,2 файловые вирусы,3 макровирусов,4 жёсткий диск,5 неопастные,безвредные,опасные,очень опасные
- не использовать знаки ? / и некоторые др.
- длина имени не более 20 символов
- имя файла отражает содержимое
var
a:array [1..20] of integer;
i,c,k:integer;
sr:real;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(80)-44;
write (a[i],' ');
end;
writeln;
write ('C = ');readln(c);
for i:=1 to 20 do
if a[i]>c then begin
sr:=sr+a[i];
k:=k+1;
end;
sr:=sr/k;
writeln (sr:0:2);
readln;
end.
(ln(128)/ln(2)) бит на пикс * 15 точек ширина * 15 точек высота = 1575 бит инф. объём (вес фотки).