Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Tham Khảo:
uses crt;
var ngay:integer;
lp:string;
begin
clrscr;
repeat
write('nhap so ngay thue phong khach san:'); readln(ngay);
if ngay<=0 then writeln('nhap lai');
until ngay>0;
repeat
write('nhap loai phong:'); readln(lp);
if (lp<>'A') and (lp<>'B') and (lp<>'C') then writeln('nhap lai');
until (lp='A') or (lp='B') or (lp='C');
case lp of
'A': write(300000*ngay);
'B': write(250000*ngay);
'C': write(200000*ngay);
end;
readln;
end.
Bài 1:
#include <bits/stdc++.h>
using namespace std;
double a,b,cv,dt;
int main()
{
cin>>a>>b;
cv=(a+b)/2;
dt=a*b;
cout<<"Chu vi la:"<<fixed<<setprecision(2)<<cv<<endl;
cout<<"Dien tich la:"<<fixed<<setprecision(2)<<dt;
return 0;
}
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.
Program tinh_tien_cong ;
Const don_gia = 15000 ;
Var so_gio , so_ngoai_gio , tien_cong : real ;
Begin
Write(' Hay nhap so gio lam ngay thuong : ' ) ;
Readln ( so_gio );
Writeln ( ' Hay nhap so gio lam ngoai gio : ') ;
Readln ( so_ngoai_gio );
tien_cong:= so_gio * don_gia + so_ngoai_gio *don_gia *2 ;
writeln ( ' so tien cong : ' , tien_cong : 9:3 , ' VND ' ) ;
Readln
End .
câu 1:
uses crt;
var a,b:integer;
svg:real;
begin
clrscr;
write('nhap chieu dai lop hoc='); readln(a);
write('nhap chieu rong lop hoc='); readln(b);
svg:=(a*b)/900;
writeln('so vien gach can lat la: ',svg:4:2);
readln;
end.
câu 2:
uses crt;
var a,b,c,d:integer;
tbc:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
tbc:=(a+b+c+d)/4;
writeln('trung binh cong cua 4 so la: ',tbc:4:2);
readln;
end.
câu 3:
uses crt;
var dtbhk1,dtbhk2,dtbcn:real;
begin
clrscr;
write('nhap diem trung binh hoc ky 1: '); readln(dtbhk1);
write('nhap diem trung binh hoc ky 2: '); readln(dtbhk2);
dtbcn:=(dtbhk1+dtbhk2*2)/3;
if dtbcn<5 then writeln('yeu');
if (dtbcn>=5) and (dtbcn<6.5) then writeln('trung binh');
if (dtbcn>=6.5) and (dtbcn<8) then writeln('kha');
if dtbcn>=8 then writeln('gioi');
readln;
end.
câu 4:
uses crt;
var a,b,c,cv:integer;
p,dt:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
cv:=a+b+c;
p:=cv/2;
dt:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('chu vi tam giac=',cv);
writeln('dien tich tam giac=',dt:4:2);
end
else writeln('khong la ba canh cua mot tam giac');
readln;
end.
Var n:integer;
Begin
Write (' nhap so tien : ');
Readln(n);
Write ( n div 50,' to 50n ');
n:=n mod 50;
Write ( n div 20,' to 20n ');
n:=n mod 20;
Write ( n div 5,' to 5n ');
n:=n mod 5;
Write ( n div 2,' to 2n ');
n:=n mod 2;
Write ( n div 1,' to 1n ');
n:=n mod 1;
Readln;
end.
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.
uses crt;
var ngay:integer;
lp:string;
begin
clrscr;
repeat
write('nhap so ngay thue phong khach san:'); readln(ngay);
if ngay<=0 then writeln('nhap lai');
until ngay>0;
repeat
write('nhap loai phong:'); readln(lp);
if (lp<>'A') and (lp<>'B') and (lp<>'C') then writeln('nhap lai');
until (lp='A') or (lp='B') or (lp='C');
case lp of
'A': write(300000*ngay);
'B': write(250000*ngay);
'C': write(200000*ngay);
end;
readln;
end.
cô gì đó ơi sao cô lại giải cho bạn bài vòng lặp trong khi đó bài này chỉ ở bài 6 thui mà