Var K, M, H: longint;
Begin
WriteLn('Введите номер секунды');
ReadLn(K);
H:=K div 3600;
M:=(K-H*3600) div 60;
K:=K-H*3600-M*60;
WriteLn('Прошло часов: ', H, '; минут: ', M, '; секунд: ', K);
Sleep(5000);
End.
Program n1;
Uses CRT;
Const n=5;
Var x: array[1..n,1..n] of integer;
a: array[1..n] of integer;
i,p,s,j: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
For j:=1 to n do
x[i,j]:=random(100);
j:=1;
Repeat
For i:=1 to n do
If a[j]<x[i,j] then a[j]:=x[i,j];
write(a[j]:4);
j:=j+1;
Until j=n+1;
p:=1;
writeln;
For i:=1 to n do
If i mod 2=0 then s:=s+a[i]
else p:=p*a[i];
writeln('Proizvedenie =',p,',Summa =',s);
readln
end.
Ну вот шаблон, и решение по 2й задаче, И скрин результатов работы.
P.S. С кодировками кириллицы могут быть проблемы.
Скорость км/ч
Время мин
Растояние м
Вес кг
Цена тенге или в рублях
Возраст лет
Рост м
Длина м
Обьем л
Кажится так
Лесе что то не правильно пиши
Пять бит степень двойки берем с избытком 2 в пятой 32