Question

1. viết chương trình nhập số giây từ bàn phím,in ra màn hình kết quả cách đổi từ giây sang phút-giây.biết 60 giây=1 phút (pasccal )

2 .nghỉ hè trúc đc bố mẹ dẫn đi nghỉ mát,nhưng vs điều kiện dựa vào số tiền T( đơn vị nghìn đồng ) nà Trúc đã để dành trong năm học vừa qua :

+ nếu T <=200 : Đi Quy Nhơn

+ nếu T>200 và T<=500: Đi Nha Trang

+ nếu T>500 và T<=1000: Đi Đà Lạt

+ nếu T>1000: Đi Đầm Sen

Answer 1

Bài 1:

uses crt;
var s:integer;
begin
clrscr;
write('Nhap so giay:'); readln(s);
writeln(s,' giay la ',s/60:4:2,' phut');
readln;
end.

Bài 2:

uses crt;
var t:real;
kt:integer;
begin
clrscr;
write('Nhap so tien:'); readln(t);
kt:=0;
if t<=200 then kt:=1;
if (t>200) and (t<=500) then kt:=2;
if (t>500) and (t<=1000) then kt:=3;
if t>1000 then kt:=4;
if kt=1 then writeln('Di Quy Nhon');
if kt=2 then writeln('Di Nha Trang');
if kt=3 then writeln('Di Da Lat');
if kt=4 then writeln('Di Dam Sen');
readln;
end.