Program znanija3;
var i, number:integer;
begin
number:=0;
while i <> 10 do begin
Inc(number);
if (number mod 10) = 7 then begin
writeln(number);
Inc(i);
end;
end;
end.
P.S. Inc(number) = number:= number+1
Переведем Кбиты/с в кБ/с (килобайты в секунду, далее просто кБ/с), для этого разделим скорость на 8.
800 Кбит/с : 8 = 100 кБ/с.
Далее 160 Мб переведем в кБ, 160 * 1024 = 163840 кБ.
Рассчитаем время, для этого 163840 кБ : 100 кБ/с = 1638,4 секунд. Переведем в минуты, если нужно: 27 минут - приблизительно.
<em>Ответ приблизительный: 27 минут или 1638,4 секунд</em>
Program test;
const PI=3.14;//Пи делаем константой, потому что оно не меняестся
var
r,s,c:real;//Переменные типа real что бы можно было записывать дробные значения
begin
Write('Введите радиус: ');
Readln(r);//вводим радус
s:=PI*sqr(r);//вычисляем площадь
c:=2*PI*r;//вычисляем длину окружности
Writeln('S = ',s);//
Writeln('P = ',c);//Выводим результат
end.