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.
Задание 1 во вложении.
Задание2.
const
m = 20;{максимальное количество элементов}
var
a: array[1..m] of real;
i, n: integer;
begin
Write('Введите количество элементов (от 1 до 20): ');
Readln(n);
Writeln('Вводите через пробел элементы массива');
for i := 1 to n do
begin
Read(a[i]);
a[i] := sqr(a[i])
end;
Writeln('Результирующий массив:');
for i := 1 to n do Write(a[i]:0:4, ' ');
Writeln
end.
Тестовое решение:
Введите количество элементов (от 1 до 20): 5
Вводите через пробел элементы массива
1.3 2.7 -4 4.23 0
Результирующий массив:
1.6900 7.2900 16.0000 17.8929 0.0000
N=2^4
I=24*24*4=2304 бит=288 байт
Следуйте инструкциям, Adobe Flash Player нужен для отображения некоторых веб-страниц.