var e,f,g,d,a,b,c,x1,x2:real;
begin
writeln('Введите значение e: ');
readln(e);
writeln('Введите значение f: ');
readln(f);
writeln('Введите значение g: ');
readln(g);
a:=e+sqrt(sqr(abs(f-g))*abs(f-g));
b:=(f/g)+7;
c:=(15+f)/(17+g);
d:=sqr(b)-4*a*c;
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('a = ',a);
writeln('b = ',b);
writeln('c = ',c);
writeln('d = ',d);
writeln('x1 = ',x1);
writeln('x2 = ',x2);
end.
1) 3
2) 1 2 3 4 5
3)
Program name;
var i:integer;
begin
for i:=1 to 6 do writeln('Ваше Имя');
end.
4)
a)
б)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=20 to 40 do sum:= sum+i;
writeln(sum);
end.
в)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=40 to 70 do sum:= sum+i;
writeln(sum);
end.
г)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=30 to 60 do if i mod 2 = 0 then sum:= sum+i;
writeln(sum);
end.
д)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=36 to 66 do if i mod 2 = 1 then sum:= sum+i;
writeln(sum);
end.
График - это линия ............
в одном гигабайте 1048576 кб. соответственно в 80гб х 1048676 = 83886080 кб.