Если нужен паскаль:
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 mathlover12;
const
n = 6; {Количество элементов массива}
var
a:array[1..n] of integer;
s:string;
i,min,max: integer;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{вводим элементы массива}
writeln; writeln('Введите ',n,' чисел:');
for i:=1 to n do read(a[i]);
{Ищем min и max}
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
{Выводим произведение min и max}
writeln; writeln;
writeln('Произведение min и max равнo ',min*max);
end.
B (59)
Если: а=6, b=15, c=38
То мы: 6+15+38 = 59