Задача 1. Знайти добуток Р множників 1*2*3*… використовуючи оператор for.

P=1

for i in range(1,4):

   P=P*i

print(P)  

Чтобы изменить порядок фото в альбоме, зайдите в фотоальбом, нажмите справа вверху Редактировать, затем в правом углу на Порядок фото. 

В программах для просмотра фотографий, которые Вам открывают изображения, предусмотрена функция Редактировать. Ее (функцию) можно отыскать открыв изображение, вверху. Там будет меню или панель инструментов, или другие кнопки для управления. Ищите там.
Та программа, в которой просматриваете изображения, предусматривает поворот фото на 180 и 90 градусов, совершая поворот вправо/ влево.

1.

program xopow1;
   uses   crt;
   var  
 a, b, Sek: integer;  
begin  
writeln('Введите границы:');  
repeat    
readln(a, b);  
until b >= a;  
 clrscr;  
for a := a to b do
    begin    
Sek := a * 60;    
writeln(a, ' мин. = ', sek, ' сек.')  
end
end.

2.

program xopow2;
  uses crt; 
Var
 z:integer;
 f,x,y:real; 
Begin 
clrscr; 
Writeln;
X:=10000;
Y:=(x/100)*10;
for z:=1 to 7 do 
 Begin 
X:=x+y; 
Writeln(Z,' -й день тренировок спортсмен пробежал ',X:3:2,' Км.'); 
End; 
Writeln('Нажмите Enter...'); 
Readln; 
end.