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
Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
Объяснение:
^ не ставится у меня, но выполняет свои действия, у себя его ставьте!
Электронная почта на компьютере
1) Системный блок, монитор , клавиатура, мышь
2)Процессор -это важнейшее устройство компьютера, его мозг , предназначен для выполнения вычисления и исполнения.
3)для запоминания информации
4)устройство ввода : клавиатура, мыши, игровые манипуляторы.
устройство вывода: мониторы.
5)Порт - это натуральное число , записываемое в заголовках протоколов транспортного уровня модели OSI. Используется для определении процесса- получателя пакета в пределах одного хоста.
6)Материнская плата -печатная плата, являющаяся основой построения модульного устройства, например- компьютера. Материнская плата : микро процесс, процессор, адаптеры устройств, оперативная память, разъем для дисковых накопителей.....
7)Системная шина выполняет функцию : передача информации между платами "ЦП Память, и картами.....