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