Var a,s:integer;
begin
Randomize;
a:=random(21)-10;
writeln(a);
s:=0;
while a<>0 do
begin
s:=s+a;
a:=random(21)-10;
writeln(a);
end;
write('s = ',s);
end.
Пример:
-6
6
10
7
-10
-8
-9
0
s = -10
Var a,b,x:real;
begin
write('Введите коэффициенты а и b: ');
readln(a,b);
x:=-b/a;
writeln('Ответ: x=',x);
<span>end. </span>
Потому что у каждого файла свой объём информации например один файл может весить 2 гигабайта (презентация) а например другой файл может весить меньше гигобайта (аудиозапись)
1)2010211
2)1109900009
3)989219,791208
4)10111212111
Настройка на локальном компьютере пользователя:
в IE Сервис->Свойства обозревателя->Подключения ->Настойка LAN->поставить галку напротив "использоваеть прокси-серер для подключений LAN", в поле "адрес" прописать IP адрес или доменное имя, в поле "порт" указать порт, на котором работает proxy сервер-> OK