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.
Chào bạn!
Câu hỏi của bạn nếu là làm trên giấy thì cần có chương trình để mô tả tìm hiểu các lệnh.
Còn nếu là thực hành thì bạn tự thực hành nhé.
Chúc bạn học tốt.
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
if (a%b==0) cout<<"YES";
else cout<<"NO";
return 0;
}
1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên
Công thức chu vi:(a+b)*2
Công thức diện tích: a*b
Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)
de 3
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
uses crt;
var X:string;
demtu,demdc,i:word;
begin
clrscr;
write('nhap cau van X:');readln(X);
writeln('so ki tu la:',length(X));
demtu:=1;
for i:=1 to length(X)-1 do
if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;
writeln('so tu la:',demtu);
demdc:=0;
for i:=1 to length(X) do
if X[i]=' ' then demdc:=demdc+1;
writeln('so dau cach la:',demdc);
readln;
end.
bài này mới đúng nè bạn:
uses crt;
var X:string;
demtu,demdc,i:word;
begin
clrscr;
write('nhap cau van X:');readln(X);
writeln('so ki tu la:',length(X));
X:=X+' ';
demtu:=0;
for i:=1 to length(X)-1 do
if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;
writeln('so tu la:',demtu);
delete(X,length(X),1);
demdc:=0;
for i:=1 to length(X) do
if X[i]=' ' then demdc:=demdc+1;
writeln('so dau cach la:',demdc);
readln;
end.
uses crt;
var diem:real;
begin
clrscr;
write('nhap diem:'); readln(diem);
if diem<5 then writeln('ban can co gang hon');
if (diem>=5) and (diem<6.5) then writeln('ban dat diem trung binh');
if (diem>=6.5) and (diem<8) then writeln('ban dat diem kha');
if diem>=8 then writeln('ban dat diem gioi');
readln;
end.
var s,i,n:integer;
begin
Write('n = ');
While (n > 100) and (n < 1) then
Begin
write('Nhap sai, nhap lai ');readln(n);
End;
for i:=1 to n do
s:=s+i;
write('tong la: ',s);
readln;
end.
