Если нужен паскаль:
1.
var
a,b:integer;
begin
readln(a,b);
writeln(a,'+',b,'=',a+b);
writeln(a,'*',b,'=',a*b);
end.
2.
var
n,c,m,h:integer;
begin
readln(n);
m:=n div 60;
c:=n mod 60;
if m>=60 then
begin
h:=m div 60;
m:=m mod 60;
if m<>0 then
if c<>0 then
write(h,'ч ',m,'мин ',c,'с')
else
write(h,'ч ',m,'мин ')
else
if c<>0 then
write(h,'ч ',c,'с')
else
write(h,'ч');
end
else
if m<>0 then
if c<>0 then
write(m,'мин ',c,'с')
else
write(m,'мин ')
else
write(c,'с');
end.
Program s;
uses crt;
const n=1;
Var i,j,otvet,prov:integer;
st:array[1..n] of string[n];
a:array[1..n,1..n] of integer;
Begin
For i:=1 to n do
Begin
For j:=1 to n do
Begin
a[i,j]:=random(n+1);
Write(a[i,j],' ');
End;
Writeln;
End;
For i:=1 to n do
For j:=1 to n do
st[i]:=st[i]+inttostr(a[i,j]);
For i:=1 to n-1 do
begin
For j:=i+1 to n do
if st[i]<>st[j] then
prov:=prov+1;
if prov=n-i then otvet:=otvet+1;
prov:=0;
End;
Writeln('ответ = ',otvet+1)
End.