Решение на фото. VAR общий для двух задач. Будут вопросы, пишите
1)
score = int(input("X - "))
tips = score * 4 * 0.15
print(tips)
2)
nbs = int(input("Цена тетради (руб.) -> "))
cases = int(input("Цена обложки (руб.) -> "))
sets = int(input("Кол-во комплектов (шт.) -> "))
cost = (nbs + cases) * sets
print("Стоимость покупки: " + str(cost) + " руб.")
<span><span>
Дано:
V=2,6 Мб
T=1 мин
Моно- ×1
H= ?
I= ?
Решение:
V= T ×I × H × 1; I × H= V / T
I × H= 2,6 Мб/1 мин. = 2,6×1024×1024×8 бит/ 60 сек=21810380,8/60=
363506,237
363506,237/8=45438,3
363506,237/16=22719,15
Ответ.
Если I=8 ,бит, то H=44,1 кГц.
Если I=16 бит, то H=22,05 кГц.
</span></span>
Var
a:array[1..100] of integer;
b, c, i: integer;
begin
read(b); read(c);
for i:=b to c do begin
a[i]:=i;
if a[i] mod 2=0 then
writeln(a[i], ' '); end;
end.
Var summa,count,numb :integer;
begin
summa:=0;
count:=0;
readln(numb);
while numb <> 0 do
begin
if numb mod 17 = 0 then
begin
summa:=summa+numb;
count:=count+1;
end;
readln(numb);
end;
if (summa > 0) and (count > 0) then
writeln(summa,' ',count)
else
writeln('No');
end.<span>
</span>