1 мбайт=1024 кбайт=2048 байт.
1 гбайт=1024 мбайт=102400 кбайт.
2 тбайт=2048 гбайт=2048000 мбайт.
1 гбайт 536 мбайт=1536 мбайт=153600 кбайт.
Program N1;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
n:=1;s:=0;c:=0;
while (n<>0) do
begin
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
end;
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
Program N2;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
until (c=0);
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
Что напиши еще раз и я отвечу на этот вопрос! !
за тоже самое время что и туда только + 2 раза скорость течения (один раз будет скорость без течения, 2 раза против течения)