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.
4:
#include <bits/stdc++.h>
using namespace std;
long long a;
int main()
{
cin>>a;
if (a%2==0) cout<<"Chan";
else cout<<"Le";
return 0;
}
Program tinh_so_luong;
uses crt;
var bi,chi,vo,th:integer;
begin
clrscr;
th:=0;
for bi:=1 to 10 do {Gia su An muon mua toi da 10 cay but bi}
for chi:=1 to 3 do {Gia su An muon mua toi da 3 cay but chi}
for vo:=1 to 20 do {Gia su An muon mua toi da 20 quyen vo}
if 2*bi+5*chi+4*vo=100 then
begin
th:=th+1;
writeln('Truong hop thu ',th);
writeln('So but bi An mua duoc la ',bi);
writeln('So but chi An mua duoc la ',chi);
writeln('So vo An mua duoc la ',vo);
writeln('--------------------------');
end;
readln;
end.
{ đơn giá: a, số lượng: b}
uses crt;
var a,b,s,thanhtoan:integer;
begin
write('nhap gia don hang:');
read(a);
write('nhap so luong hang:');
s:=0;
thanhtoan:=0;
s:=a*b;
if s>100 then thanhtoan:= s*(30/100)
else thanhtoan:= s* (10/100);
write(' so tien can thanh toan la:',' ',thanhtoan);
readln;
end.
Var a:array[1..35] of real;
i:integer;
Begin
For i:=1 to 35 do
Begin
Write('Nhap diem thu ',i);readln(a[i]);
End;
write('Diem vua nhap la ');
For i:=1 to 35 do write(a[i]:10:2);
Writeln;
write('Cac diem duoi 5 hoac > la ');
For i:=1 to 35 do
If (a[i]>9) or (a[i]<5) then write(a[i]:10:2)
Readln
End.
#include <iostream>
using namespace std;
int main()
{
int a;
cin >> a;
if (a < 10)
cout << a * 600 << " d";
else
cout << a * 500 << " d";
return 0;
}
*Đây là C++ không phải Pascan nhé =))