1)
nclude <iostream>
using namespace std;
int main()
{
int num;
cin >> num;
cout << "\n"
<< num / 60 << " мин. " << num % 60 << " с.";
}
2)
#include <iostream>
using namespace std;
int main()
{
int num
cin >> num;
cout << num / 3600 << " д. " << (num % 3600) / 60 << " мин. " << (num % 3600) % 60 << " с.";
}
const
m = 20;
var
arr: array[1..m] of integer;
i, j, k,r: integer;
begin
for i := 1 to m do begin
arr[i] := random(256);
end;
for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write (arr[20]);
readln
end.
Uses graphabc;
procedure vvod(var a,b: integer);
begin
writeln('Введите ширину отступа');
read(a);
writeln('Введите ');
read(b);
end;
procedure squares(r,nachdl: integer);
var x1,y1,x2,y2: integer;
begin
y1:=0;
x1:=0;
x2:=nachdl;
y2:=nachdl;
while x2<windowheight do
begin
drawrectangle(x1,y1,x2,y2);
x2:=x2+r;
y2:=y2+r;
nachdl:=nachdl+r;
end;
end;
var
r,nachdl: integer;
begin
vvod(r,nachdl);
squares(r,nachdl);
<span>end.</span>
Паскаль -- команда val. Синтаксис можно почитать где-то на форумах.
Если нужны другие языки -- какие?