10 Мбит = 10/8 МБайт = 1,25 Мб
300/1,25 = 240 секунд = 4 минуты.
uses crt;
type matr=array[1..20,1..20] of integer;
proc=procedure(m:matr;n:byte);
Var a,b,k1,k2,s:integer;
<span>begin </span>
<span>s:=0; </span>
<span>k1:=0; </span>
<span>writeln('Введите начало и конец отрезка'); </span>
<span>read(a,b); </span>
<span>k2:=b-a+1; </span>
<span>repeat </span>
<span>if b<0 then break; </span>
<span>s:=s+b; </span>
<span>b:=b-1; </span>
<span>inc(k1); </span>
<span>until (b=-1) or (b=a-1); </span>
<span>writeln('Сумма всех целых положительных чисел на отрезке = ',s); </span>
<span>writeln('Количество отрицательных целых чисел = ', k2-k1); </span>
<span>end.</span>
Program SandP; //Название программы
var //Описание переменных
x,y: real; // Стороны прямоугольника
S: real; // Площадь прямоугольника
P: real; // Периметр прямоугольника
<span>procedure RectSP<span>(a,b: real; var S,P:real)</span>;</span> //Процедура
begin
S := a * b; //Нахождение площади
P := a + b; //Нахождение суммы
end;
begin //Начало основной части программы
writeln('Введите стороны прямоугольника: '); //Диалог с пользователем
readln(x,y); //Считывание сторон
RectSP(x,y,S,P); //Вызов процедуры
writeln('Площадь равна ',S); //Вывод площади
writeln('Периметр равен ',P); //Вывод периметра
end. <span>//Конец программы</span>
Составим таблицу, куда пощагово запишем все значения переменных (см. во вложении) и увидим, что значение переменной С будет равно 8
