val = 100
while val > 0:
n=int(input("Введи число "))
if (n>val):
print ("Значение будет некорректным")
continue
val = val-n
print (val)
PascalABC.NET
uses
System.Collections.Generic;
var
arr: List<<em>single</em>> := new List<<em>single</em>>();
i: integer;
begin
writeln('i':2, 'arr[i]':7, #13, new string('-', 9));
for i := 1 to 10 do
begin
arr.Add(Random(-5, 5));
writeln(i:2, arr[i - 1]:7);
end;
writeln(new string('-', 9));
arr.RemoveAt(3);
for i := 1 to 9 do
writeln(i:2, arr[i - 1]:7);
end.
посчитаем количество символов в тексте -38
на кодирование 1 символа идет 1 байт , получается 38 байт
переведем байты в биты: 38*8=304 бита это и есть ответ
var
x1, x2, x3:real;
begin
write('x1 = '); readln(x1);
write('x2 = '); readln(x2);
write('x3 = '); readln(x3);
if x1 < x2 then
if x1 < x3 then
writeln('минимальным является элемент х1 = ', x1)
else
writeln('минимальным является элемент х3 = ', x3)
else
if x2 < x3 then
writeln('минимальным является элемент х2 = ', x2)
else
writeln('минимальным является элемент х3 = ', x3);
end.
1)
<span>8730 bit/s
</span>715860*8=5726880 bit
5726880 bit / 8730 bit/s = 656 sec
2)
695Kb * 1024 = 711680 byte
711680*8=5693440
(11*60)+35 = 695 s
5693440 bit / 695 s = 8192 bit/s
3)
3550Kb * 1024 = 3635200 byte
3635200 * 8 = 29081600 bit
(11*60)+50 = 710 s
29081600 / 710 = 40960 bit/s
