1) Составить программу вычисления для заданного трехзначного целого числа: суммы чисел.
(программа):
program num_3;
var
a, b, c, x, y:word;
begin
readln (x);
a:= x mod 10;
c:=( x div 10) mod 10;
y:=a+b+c;
writeln (y);
end.
2) Идет каждая секунда суток. Составить прогр. вычисл. количества полных часов (h) и минут (m) от начала суток.
(программа):
program num_5;
var
x; h; m:word;
begin
readln (x);
h:= x div 3600;
m:=(x - (3600*h)) div 60;
writeln (h);
writeln (m);
end.
Вот. Если можете, помогите разобраться, спасибо.









