<em>Образ мыши на экране - </em><u>курсор</u>
Всемирная паутина
Имеется ввиду интернет
Если B = просто 326, тогда ответ 3 является верным!
Var n,h,m,s:integer;
begin
write('n = ');
readln(n);
h:=n div (60*60);
m:=n mod (60*60) div 60;
s:=n mod 60;
write(h,':');
if m<10 then write(0);
write(m,':');
if s<10 then write(0);
writeln(s);
end.
Пример 1:
n = 86399
23:59:59
Пример 2:
n = 18125
5:02:05
Uses crt;
function f(a,b:real):real;
begin
f:=sqrt(a*a+b*b)
end;
var ab,ac,dc,bd,g,p:real;
begin
clrscr;
writeln('Введите длины строн');
write('ab=');readln(ab);
write('ac=');readln(ac);
write('dc=');readln(dc);
g:=f(ab,ac);
bd:=f(g,dc);
p:=ab+ac+dc+bd;
write('Периметр=',p:0:2);
readln
end.