Составьте программу, которая выводит последовательность чисел 1 2 3 4 5 и 5 4 3 2 1, используя циклwhile. и такую же программу используя цикл repeat. pascal

// pascalabc.net // цикл while begin     var i : = 1;         while i < 6 do      begin       write(i, ' ');       inc(i);     end;         writeln;     dec(i);         while i > 0 do     begin       write(i, ' ');       dec(i)     end end. // цикл repeat begin     var i : = 1;         repeat       write(i, ' ');       inc(i);     until i> 5;         writeln;     dec(i);         repeat       write(i, ' ');       dec(i)     until i< 1 end.

Var   i: integer; begin i : = 1; while i < = 5 do begin writeln (i); i : = i + 1 end; while i > = 1 do begin writeln (i); i : = i - 1 end; end.

20 задание:

n = int(input('Введите n: '))

for i in range(1, n + 1):

   if i % 3  == 0 and i % 5 == 0:

       print('*35*')

   elif i % 3 == 0:

       print('*3*')

   elif i % 5 == 0:

       print('*5*')

   else:

       print(i)

21 задание:

strN = ''

temp = ''

print('Вводите числа, каждое с новой строчки, в конце напишите stop.')

while temp != 'stop':

   temp = input()

   if temp != 'stop': strN += temp + ' '

n = [int(item) for item in strN.split()]

for i in n:

   if i > 100:

       break;

   elif i >= 10:

       print(i)

22 задание:

a = ''

temp = ''

print('Пишите числа, в конце напишите stop.')

while temp != 'stop':

   temp = input()

   if temp != 'stop' and int(temp) % 7 == 0 and int(temp) % 5 == 0:

       a += temp + ' '

a = a.split()

if len(a) != 0:

   print('Числа кратные 7 и 5:')

   for i in a: print(i)

else: print('Нет чисел кратных 7 и 5.')