//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 символ = 1 байт
40*50*10=20000 символов всего
12500 байт = 1562,5 бит
20000:1562,5=13 (приблизительно)
N-мощность алфавита
2^13=8192
Ответ: N=8192
Program gt;
label 1;
var a:array[1..30]of integer;
i,min:integer;
begin
randomize;
min:=200;
1:
for i:=1 to 30 do
begin
a[i]:=random(101);
if(a[i]<min)and(a[i]>=20)then min:=a[i];
end;
if(min<>200)then begin
for i:=1 to 30 do
write(a[i],' ');
writeln;
writeln(min);
exit;
end;
if(min=200)then goto 1;
end.
Var
number: integer;
k: integer;
begin
repeat
write('number = ');
readln(number);
if number < 0 then k := k + 1;
until number = 0;
writeln('Кол-во отрицательных = ', k);
end.
По иерархическому принципу. Сначала домены верхнего уровня, затем второго и третьего