1)
var a,b:longint;
begin
readln(a,b);
writeln(a+b);
end.
2)
var x:longint;
begin
readln(x);
if(x>0) then writeln(x-6) else if(x=0) then writeln(32*x-7) else if(x<0) then writeln(5*x-2);
end.
3) В третьей условие не совсем понял, если что, дополни, отредактирую код. Какие значения принимают элементы (по какому принципу заполняется массив)? Написал для массива с элементами от 1 до 50.
var a:array[1..50] of integer;
var i:integer;
begin
for i:=1 to 50 do a[i]:=i;
for i:=1 to 50 do writeln(a[i]);
end.
1) Разделить число на 3600.Получим .целое число означает текущий час.
Если из задонного числа вычесть получившееся целое число умноженное на 3600 получим число секунд в текущих минутах.
2)это число необходимо разделить на 60. Целое число будет означать текущую минуту.
3) вычитаем из оставшегося числа число минут умноженное на 60 получим текущую секунду.
Например
Задано число 66276.
часов.
18 * 3600 = 64800
66276 - 64800 = 1476
минуты.
24 * 60 = 1440
1476 -1440 = 36
ответ: 18 часов , 24 минуты, 36 секунд.