Var
i: integer;
x: real;
begin
x := 0;
i := 0;
while i < 10 do
begin
inc(i);
x := x + 1/i;
end;
writeln(x);
end.
Ответ:
10 с
Объяснение:
Поскольку скорость дана в бит/с, объем информации нужно перести в биты.
В одном байте 8 бит, поэтому количество байт умножаем на 8.
Получаем 125 × 8 = 1000 бит.
Если за секунду передается 100 бит, то на всю передачу будет затрачено 1000 / 100 = 10 секунд
Var r,v:real;
begin
write('Рост? '); readln(r);
write('Вес? '); readln(v);
if (r >= 168)and(r <= 178)and(v < r-115) then writeln('Принят')
else writeln('Не принят');
readln
<span>end.</span>
Program idinah;
var a, b: real;
begin
write('a, b = ');
readln(a,b);
writeln('Среднее арифметическое = ',(a+b)/2);
end.