1.
sec = int(input())
min = sec // 60
sec = sec - min*60
print(min," мин ",sec," сек.")
2.
x = int(input())
a = x //1000
b = x//100 - a*10
c = x//10 - a*100 - b*10
d = x - a*1000 - b*100 - c*10
print("сумма:"a+b+c+d)
print("произведение:"a*b*c*d)
3.
x = int(input())
b = x//100
c = x//10 - b*10
d = x - b*100 - c*10
y = d*100 + c*10 + b
1. var a, b :real;
begin readln(a, b); writeln(sqrt(a*a + b*b)); end.
2. var s1, s2, a1, a2 :real;
begin readln(s1, s2);
if s1 / 3.14159265 < s2 / 4 then writeln('yes') else writeln('no');
end.
3. var x, y :real;
begin readln(x);
if x < -10 then y:=234 - x*x*x else y:=x * x + 54;
writeln(y);
end.
Var
mas:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
mas[i]:=random(41)-20;
write(mas[i],' ');
end;
end.
Сортировка методом пузырька:
const n=10;
Var a:array[1..n] of integer; i,j,b:integer;
Begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
for i:=1 to n do write(a[i],' ');
End.