balance = int(input("Счет - "))
percent = int(input("% - "))
years = 0
print(balance)
while balance < 50000:
years += 1
balance = balance + balance * percent / 100
print(years)
X=[] # задаем пустой список для чисел
while True: # открываем бесконечный цикл
i=int(input()) #вводим целое число
if i!=0: # если это число не 0
x+=[i] # то запишем его в список
else:
break # иначе стоп циклу
mx=max(x) # найдем максимальный элемент в списке
k=0 # зададим начальное значение счетчику 0
for i in x: # для каждого числа из списка х
if i==mx: # если это число равно максимуму
k+=1 # увеличим счетчик на 1
print(k) # вывод счетчика
Var x,y,p,i:integer;
begin
readln(x,y);
for i:=1 to abs(y) do p:=p+x;
if y<0 then p:=-p;
writeln(p);
<span>end.</span>
Некоторые части алгоритма могут выделяться в виде вспомогательных алгоритмов, решающих вспомогательные подзадачи.
Для реализации вспомогательных алгоритмов служат подпрограммы или процедуры.
pb = 25000
pc = 16000
pt = 2000
for qb in 1..100
for qc in 1..100
qt = 100 - qb - qc
if pb*qb + pc*qc + pt*qt <= 500000
puts "%3i %3i %3i sum = %5i" % [qb,qc,qt,pb*qb + pc*qc + pt*qt]
end
end
end