все компьютерные сети имеют назначение обеспечения совместного доступа к общим ресурсам
1. ((x-1)/sqr(y)-1/x)/(1/y+1/(x+1))
2.
program Schet;
var x,y:real;
begin
write('Введите значение X: ');
readln(x);
if (x+100>0) then begin
y:=(sqr(x)+4)/sqrt(x+100);
writeln('Y = ',y) end
else writeln('При данном значении X выражение не может быть рассчитано!')
end.
3.
program Func;
var x,y:real;
begin
write('Введите значение X: ');
readln(x);
if x<=0 then y:=4*x else
y:=(sqr(x)+1)/2;
writeln('Y = ',y)
end.
4.
program interval;
var s,x:real;
begin
x:=0;
repeat
s:=2*x*x+1;
writeln('при X = ',x:5:2,' S = ',s:6:2);
x:=x+0.5
until x>10
end.
Все программы написаны на языке ABC Pascal и проверены на функциональность
Var
i,n:integer;
begin
write('Write n: '); readln(n);
for i:=10 to 99 do
if (i mod n=0) or ((i div 10=n) or (i mod 10=n))
then writeln(i,' ');
readln
end.
256*30*64*5=2457600бит/8=307200байт/1024=300мбайт