умоляю до ть 1.Що визначає тип змінної? 2.Як описати змінну дійсного типу? Скільки пам’яті виділяється для такої змінної? 3.Як описати змінну цілого типу? Скільки пам’яті виділяється для такої змінної? 4.Якими командами можна перевести текстове подання числа в безпосередньо в число і навпаки?

~ это пробелы.

1)

for i in range(1,10+1): //цикл от 1 до 10 включительно

print(i)

2)

for i in range(10,0,-1): //цикл от 10 до 1 включительно

print(i)

3)

for i in range(2,10+1): //цикл от 2 до 10 включительно

if i%2==0:

print(i)

4)

for i in range(1,16+1): //цикл от 1 до 16 включительно

if i%2==1:

print(i)

5)

summ=0 //переменная для хранения суммы

for i in range(1,50+1): //цикл от 1 до 50 включительно

summ+=i

print(summ)

6)

n=int(input())

summ=0

for i in range(1,n+1): //цикл от 1 до n включительно

summ+=i

print(summ)

7)

//не знаю как циклом, но вот проще

print(len(input()))

8)

n=int(input())

for i in range(len(str(n))):

print(n%10)

n//=10

Всё. Можно лучший ответ?

1) var  A, B: array[1..25] of integer; 
   i, x: integer; 
   begin 
   writeln('введите элементы массива A: '); 
   for i := 1 to 25 do  begin   
   read(A[i]);    
   if A[i] mod 3 = 0 then   
   begin     
   x := x + 1;     
   B[x] := A[i];   
   end; 
   end; 
   write('элементы массива A, кратные трём: '); 
   for i := 1 to x do  begin   
   write(B[i], ' '); 
   end;
   end.

2) var  A, B, C: array[1..10000] of integer; 
   i, n, x: integer;  
   begin 
   writeln('введите размеры обоих массивов: '); 
   read(n); 
   write('введите элементы массива A: '); 
   for i := 1 to n do  begin   
   x := x + 1;   
   read(A[i]); 
   end; 
   write('введите элементы массива B: '); 
   for i := 1 to n do  begin   
   read(B[i]); 
   end; 
   write('элементы массива C: '); 
   for i := 1 to x do  begin   
   C[i] := A[i];   
   write(C[i], ' ');   
   C[i] := B[i];   
   write(C[i], ' '); 
   end;
   end.