<span>1гб = 1024мб
3гб = 3072мб (1024*3)
</span>3072/10= 307,2 мб в минуту
<span>307,2/60 = 5.12 мб/сес</span>
Ответ: <span>5.12 мб/сес</span>
{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer;
begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.
//Pascal ABC.NET v3.0 сборка 1111
Var
a,b,c:real;
begin
read(a,b,c);
write((a+b+c)/3);
end.
Пример ввода:
1
2
3
Пример вывода:
2
var
a,b,c,n:integer;
begin
n:=0;
writeln("Введите 3 числа");
readln(a,b,c);
if a<0 then inc(n);
if b<0 then inc(n);
if c<0 then inc(n);
writeln("Из них ", n, " отрицательные.");
end.