var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
Вы добавили вчера , вам ещё нужно?
import random
nun_man = [ random.randint(-100,100) for i in range(10) ]
print(nun_man)
count = 0
while count < len(nun_man):
q = nun_man[count]
suma = 0
for i in str(q):
if i == '-':
continue
else:
suma += int(i)
print("Сумма цифр:", suma)
count += 1
Код полностью var
a, b, s: real;
begin
a := 1;
b := 2;
while a + b < 8 do
begin
a := a + 1;
b := b + 2;
writeln('a = ', a, ' b = ', b);
end;
s := a + b;
writeln('s = ', s);
end.
вывод
a = 2 b = 4
a = 3 b = 6
s = 9
Отсюда видно что цикл прокрутился 2 раза и a = 3 b = 6 s = 9