Vct in ra màn hình giờ phút giây khi nhập vài số giây
2 câu trả lời
uses crt;
var gio, phut, giay: real;
begin
clrscr;
write('Nhap giay: '); readln(giay);
gio:=3600*giay;
phut:=60*giay;
writeln('Gio = ', gio);
writeln('Phut = ', phut);
writeln('Giay = ', giay);
readln
end.
Uses crt;
Var s, p, g: real;
Begin
Clrscr;
Write('Nhap so giay: '); readln(s);
p:=60*s;
g:=3600*s;
Writeln('So gio la: ',g);
Writeln('So phut la: ',p);
Writeln('So giay la: ',s);
Readln
End.
Câu hỏi trong lớp
Xem thêm
