program Dobytok_cyFr;
uses CrT;
Var a,b,c,t,f:byte;
BEGIN
Writeln('Vvesty kilkist hvylyn');
Readln(t);
a:= t div 60;
Writeln(a);
b:= t mod 60;
Writeln(b);
//c:= t div mod ;
Writeln(c);
//f:=a*b*c;
END.
uses CrT;
Var a,b,c,t,f:byte;
BEGIN
Writeln('Vvesty kilkist hvylyn');
Readln(t);
a:= t div 60;
Writeln(a);
b:= t mod 60;
Writeln(b);
//c:= t div mod ;
Writeln(c);
//f:=a*b*c;
END.
Комментариев нет:
Отправить комментарий