Program Nalog;{Uses crt}{Если надо}varz,x:real;begin
Write('Ввидите число ');Read(x);If x<2500 then Writeln('налог = 0');
beginif (x>=2500) and (x<10000) thenz:=x*0.13;Writeln('Налог=',z);end;Beginif x>=10000 then z:=(x-1300)*0.15;Writeln('Налог=',z);{READLN - Если турбо поскаль или фрии}end;<span>end.
Картинка снизу
Только есть 1 проблемв с последним
</span>
22байта=176бит
15кбайта=117760байт
156=163577856байт
a = str(input("введите строку - "))
b = list(a)
c = len(b)
if c % 2 == 1:
a1 = c // 2
print(b[a1])
else:
a1 = c // 2 - 1
a2 = c // 2
print(str(b[a1]) + ' , ' + str(b[a2]))
1 12
2 2,3,4,9
3
var
n, m: longint;
d: integer;
begin
read(n);
m := 0;
while n > 0 do {1 на 0}
begin
d := n mod 10;
if d < 9 then begin
m := 10 * m + d; {домножили на 10}
end;
n := n div 10;
end;
write(m);
end.
1)Т.к 1 мб=8000000 битов, тогда 8000000*136=1088000000 битов.
2)Т.к 1 тб=1000000000 КБ, тогда 1000000000*2=2000000000 кб.
3),4) немного не поняла, напиши я дорешаю.
5)Дано : | Решение.
V=12 кбит/с. | 1)Переведем 6 минут в сек. :
t=6 мин. | 6*60=360(сек)
_________ | 2)12*360=4320(кб).
S=?
Ответ :4320 килобайт.
Подробнее - на Znanija.com - znanija.com/task/30179393#readmore