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;
const N=20;
var
i,A,x: integer;
arr: array [1..N] of integer;
begin
clrscr;
x:=0;
write ('A=');
readln (A);
writeln ('Array: ');f
or i:=1 to N do
begin
arr[i]:=random(41)-20;
write (arr[i],' ');
end;
for i:=1 to N do
begin
if (arr[i]>=0) and (arr[i]<=A) then
x:=x+1;
end;
writeln ();
writeln ('Answer: ',x);
readln ();
<span>end.</span>
На месте первой буквы может стоять только 4 буквы, на второй тоже 4(М может быть только на 5м)
на 3,4,6,7х местах по 3(т.к. "М" на 5м, а "Х" на 1м или 2м), на 5м месте тоже 4.
4*4*3*3*4*3*3 = 5184
1) Клавиатура, мышь, планшет.
2) Определенный набор программ в определенной системе. Например: photoshop, microsoft office, и т.д.
3) Объект, представляющий собой носитель определенной информации.
4) Набор символов, показывающий расположение файла в файловой системе.