4096 б = 4.096 кб
1 МБ = 1048576 Б
31457280 б = 3.75 МБ
Const N=10;
var a:array [1..N] of integer;
i,sum:integer;
sr:real;
begin
sr:=0; sum:=0;
for i:=1 to N do
begin
a[i]:=random(10)+1;
sum:=sum+a[i];
end;
for i:=1 to N do
write(a[i]:3);
writeln;
sr:=sum/10;
writeln('Среднее значение элементов массива:',sr);
end.
Uses crt;
var a,b,c,x1,x2,x,D:real;
begin
writeln('Введите коэффициенты уравнения');
writeln;
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
D:=b*b-4*a*c;
if D<0 then
writeln('Корней нет')
else
begin
if D=0 then
x:=-b/(2*a);
writeln ('x= ',x);
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln ('x1= ',x1);
writeln ('x2= ',x2);
end;
end;
end.
1 связи на расстояний
2 появились gps навигаторы легко путешествовать
3 можно получить полезную информацию
4 смотреть фильмы, слушать музыку для психологий очень влияет
5 передавать файлы документы и тд за секунды