Комментарий удален
Возьмусь за задачи.

Ответы и объяснения

Лучший Ответ!
2013-09-22T18:45:10+00:00
Program p51;
uses crt;
var n:integer;
begin
readln(n);
writeln(,n div 60,' Minut(-i) ',n mod 60,' Sekynd(-i)');
end.

program p52;
var a:integer;
begin
repeat
readln(a);
until (a>1000) and (a<10000);
writeln('Summa= ',a div 1000+a div 100 mod 10+a div 10 mod 10+a mod 10);
end.