Sắp đến ngày thi tin học trẻ nên Tý học tập rất chăm chỉ. Mỗi ngày Tý bắt đầu học vào lúc g1 giờ p1 phút và kết thúc việc học vào lúc g2 giờ p2 phút (0<=g1, g2<=23, 0<=p1, p2<=59) . Mẹ thấy Tý học hành chăm chỉ và biết Tý rất thích ăn hạt dẻ nên quyết định sẽ thưởng cho Tý như sau : cứ mỗi giờ tý học mẹ sẽ thưởng cho tý 10 hạt dẻ , ngoài ra học thêm phút nào sẽ được thưởng thêm một phút 2 hạt dẻ. Hãy viết chương trình giúp mẹ Tý tính tổng số hạt dẻ thưởng cho tý Dữ liệu vào từ tệp văn bản gồm 2 dòng như sau : - dòng 1 ghi hai số nguyên g1 và p1 cách nhau một dấu cách - dòng thứ 2 ghi số nguyên g2 và p2 cách nhau một dấu cách Kết quả fghi ra tệp văn bản STUDY.OUT một số là tổng hạt dẻ mà Tý nhận được Ví dụ STUDY.INP STUDY.OUT STUDY.INP STUDY.OUT 8 15 26 22 10 50 10 18 3 10 giải thích: tý học được 2 giờ 3 phút nên số hạt dẻ là : 2*10+3*2= 26 PASCAL NHA

1 câu trả lời

uses crt;
var g1,p1,_p1,g2,p2,_p2,time:longint;
begin
    clrscr;
    readln(g1,p1,g2,p2);
    _p1:=g1*60+p1;
    _p2:=g2*60+p2;
    if ((g1 = g2) and (p1 > p2)) or (g1 > g2) then
        time:=1440-_p1+_p2
    else
        time:=_p2-_p1;
    writeln((time div 60)*10 + (time mod 60)*2);
end.

Câu hỏi trong lớp Xem thêm