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
Пройдёмся по алгоритму по-порядку:
1)x=3, y=12
2)y=18
3)y=54
4)y=61
5)y=183
6)y=191
Ответ: 191
Ответ:
1) 32; 2) 25
Объяснение:
1) _ _ _ _ _ - 5 символов, на каждом месте может стоять 1 или 0 (т.к. алфавит двоичный), значит: 2 * 2 * 2 * 2 * 2 = 2^5 = 32/
2) _ _ - 2 символа, на каждом месте может стоять один из 5 символов алфавита, значит 5 * 5 = 25
Var
a:array of integer;
i,b,c:integer;
BEGIN
write('Введите размер массива - ');
readln(b);
setlength(a,b);
writeln('Введите элементы массива - ');
for i:=0 to b-1 do begin
readln(a[i]);
if a[i] mod 2 = 0 then c:=c+a[i];
end;
writeln('Сумма четных элементов массива - ',c);
END.