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.
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if (a>0) and (b>0) then writeln('Cung duong');
if (a<0) and (b<0) then writeln('Cung am');
if (a>0) and (b<0) then writeln('Duong am');
if (a<0) and (b>0) then writeln('Am duong');
readln;
end.
Câu 2:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if (a mod 2=0) and (b mod 2=0) then writeln('Cung chan');
if (a mod 2<>0) and (b mod 2<>0) then writeln('Cung le');
if (a mod 2=0) and (b mod 2<>0) then writeln('Chan le');
if (a mod 2<>0) and (b mod 2=0) then writeln('Le chan');
readln;
end.
Câu 1:
uses crt;
var a,s,p:real;
begin
clrscr;
repeat
write('Nhap do dai canh hinh vuong:'); readln(a);
until a>0;
p:=4*a;
s:=sqr(a);
writeln('Chu vi hinh vuong la: ',p:4:2);
writeln('Dien tich hinh vuong la: ',s);
readln;
end.
Câu 2:
uses crt;
var a,b,t,s,h:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
t:=a+b;
h:=a-b;
s:=a*b;
writeln('Tong la: ',t:4:2);
writeln('Hieu la: ',h:4:2);
writeln('Tich la: ',s:4:2);
readln;
end.
Câu 3:
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
C1:
khai báo:
program hieu_a_va_b ("tự đặt tên cái này ko cần thiết)
uses crt;
var a, b : integer
phần thân:
begin
writeln ("nhap so a"); read(a);
writeln ("nhap so b"); read(b);
writeln ("hieu cua hai so la: a - b=" , a - b);
end.
C2:
khai báo:
program tinh_ba_so
uses crt;
var a, b, c : integer
phần thân:
begin
writeln ("nhap so a"); read(a);
writeln ("nhap so b"); read(b);
writeln ("nhap so c"); read(c);
writeln ("ket qua cua phep tinh a+b-c la" , a+b-c);
end.
C3:
khai báo:
program tinh_ba_so
uses crt;
var x, y, z : integer
phần thân:
begin
writeln ("nhap so x"); read(x);
writeln ("nhap so y"); read(y);
writeln ("nhap so z"); read(z);
writeln ("ket qua cua phep tinh (x+y)*z la") , (x+y)*z);
end.
nhớ chạy thử chương trình nha. xem có lỗi ko.
(nhớ tick cho mk nha)
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a-b;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%2==0) cout<<"La so chan";
else cout<<"La so le";
return 0;
}
Tham khảo!
program baitap;
uses crt;
var a:integer;
procedure chanle(x:integer);
begin
if ((x mod 2) = 0) then write('So nhap vao la so chan.') else
write('So nhap vao la so le.');
end;
begin
clrscr;
write('Nhap a: ');readln(a);
chanle(a);
readln;
end
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
write(a+b);
readln;
end.
Câu 2:
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
writeln(a+b-c);
readln;
end.
Câu 3:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a-b);
readln;
end.
Câu 4:
uses crt;
var x,y,z:integer;
begin
clrscr;
readln(x,y,z);
writeln((x+y)*z);
readln;
end.
mình chưa hiểu rõ đề lắm nên mình sẽ làm tạm như thế này còn nếu bạn muốn kiểu khác thì cứ bình luận để mình làm lại.
câu 1 :
#include<iostream>
using namespace std;
int main() {
long long a;
cout << "giá trị của a: "; cin >> a;
if (a % 2 != 0 && a % 5 == 0) {
cout << "a là một số lẻ chia hết cho 5"
} else {
cout << "a không phải là một số lẻ chia hết cho 5";
}
return 0;
}
câu 2 :
#include<iostream>
using namespace std;
int main() {
int a;
cout << "giá trị của a là: "; cin >> a;
if (a % 2 == 0 && a % 5 == 0) {
cout << "a là một số chẵn chia hết cho 5";
} else {
cout << "a không phải là một số chẵn chia hết cho 5";
}
return 0;
}
(Mình viết ở ngôn ngữ C++)
#include <bits/stdc++.h>
using namespace std;
long long a,b,c;
int main()
{
cin>>a>>b>>c;
if (a+c %2==0) cout<<"AC ";
if (b+c%2==0) cout<<"BC ";
if (a+b%2==0) cout<<"AB";
return 0;
}
Câu 6:
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.
Câu 7:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln(a-b)
else writeln(b-a);
readln;
end.
Câu 8:
uses crt;
var a,b,c,ln:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
ln:=a;
if ln<b then ln:=b;
if ln<c then ln:=c;
writeln(ln);
readln;
end.
Câu 10:
uses crt;
var toan,ly,hoa,dtb:real;
begin
clrscr;
write('Nhap diem Toan:'); readln(toan);
write('Nhap diem Ly:'); readln(ly);
write('Nhap diem Hoa:'); readln(hoa);
dtb:=(toan*2+ly+hoa)/4;
if dtb<5 then writeln('Yeu');
if (5<=dtb) and (dtb<8) then writeln('Kha');
if dtb>=8 then
begin
if (toan=10) and (hoa>7) and (ly>7) then writeln('Gioi va nhan hoc bong')
else writeln('Gioi va khong nhan hoc bong');
end;
readln;
end.
Bạn ơi chỗ câu 8 ln:=a thì ln là gì vậy bạn?