![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var a,b,c: integer;
begin
clrscr;
write('Nhap ngay; thang; nam :'); readln(a,b,c);
if (a>=1) and (a<=31) then write('Ngay hop le');
if (b>=1) and (b<=12) then write('Thang hop le');
if (c>=0) and (c<=2021) then write('Nam hop le');
readln
end.
uses crt;
var a,b,c: integer;
begin
clrscr;
write('Nhap ngay; thang; nam :'); readln(a,b,c);
if (a>=1) and (a<=31) then write('Ngay hop le');
if (b>=1) and (b<=12) then write('Thang hop le');
if (c>=0) and (c<=2021) then write('Nam hop le');
readln
end.
Trả lờiChuyển tiếp |
![](https://rs.olm.vn/images/avt/0.png?1311)
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;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
b)
uses crt;
var s,i,a:longint;
begin
clrscr;
s:=0;
a:=1;
for i:=1 to 35 do
begin
s:=s+a;
a:=a+3;
end;
writeln('So vien keo la: ',s);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Câu 1:
-Nhà sách Văn Khoa thường nhập bút, sách, vở, báo, truyện….Để bán cho học sinh nhân ngày tựu trường.
-Mỗi lần nhập vở không quá 5000 quyển.
-Mỗi năm nhà sách nhập 2 lần vở.
-Mỗi quyển vở có giá 4500, giá vở này cố định.
Câu 2:
B1: Bắt đầu
B2: Nhập số lượng 1 và số lượng 2
B3: thanhtien1 soluong1*dongia
thanhtien2 soluong2*dongia
B4: Tổng tiền
B5: Xuất, tổng thành tiền
B6: Kết thúc.
Chương trình pascan nha mn