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:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<fixed<<setprecision(2)<<a*b*c;
return 0;
}
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
-so sanh hai so nhap tu ban phim:
var a,b:integer;
begin
clrscr;
write('Nhap so thu nhat:');readln(a);
write('Nhap so thu hai:');readln(b);
if a>b then writeln(a,'lon hon',b)
else writeln(a,'nho hon,'b);
if a=b then writeln(a,'bang',b);
readln;
end.
program ctdt;
uses crt;
type mang=array[1..10]of integer;
var a,b,min,x,y,i,j,tam:integer;
t,t1:mang;
(*------------------------*)
BEGIN
clrscr;
(*cau a*)
write('nhap 2 so:');readln(a,b);
if a>b then writeln(a,' lon hon ',b);
if a=b then writeln(a,' bang ',b);
if a<b then writeln(a,' nho thua ,b);
(*cau b*)
for i:=1 to 4 do {dua 4 so vao 1 mang}
begin
write(so thu ',i,' :');readln(t[i]);
end;
min:=t[1];
for i:=2 to 4 do
if t[i]<min then min:=t[i];
writeln('so nho nhat trong bon so:',min);
(*cau c*)
write('nhap hai so x,y:');readln(x,y);
if x>y then
begin
tam:=x;
x:=y;
y:=tam;
end;
(*cau d*)
for i:=1 to 3 do {dua 3 so vao mot mang}
begin
write(' so thu ',i,': ');readln(t1[i]);
end;
for i:=1 to 3-1 do
for j:=i+1 to 3 do
if t1[j]>t1[i] then
begin
tam:=t1[j];
t1[j]:=t1[i];
t1[i]:=tam;
end;
for i:=1 to 3 do
write(t1[i]);
readln;
end.
bai nay con vai loi sai nho
ban nen chay tung cau mot va khoa cac cau con lai bang lenh {...}
program CompareNumbers;
var
x, y: real;
begin
// Bước 1: Nhập 2 số thực x và y từ bàn phím
write('Nhap so thuc x: ');
readln(x);
write('Nhap so thuc y: ');
readln(y);
// Bước 2: So sánh x và y, in ra số lớn hơn
if x > y then
writeln('x lon hon y')
else if x < y then
writeln('y lon hon x')
else
writeln('x bang y');
readln;
end.
(khoog bt đúng ko)
program TinhTongSoNguyenTo;
var
X, Y, i, j, dem, tong: integer;
begin
write('Nhap X: ');
readln(X);
write('Nhap Y: ');
readln(Y);
tong := 0;
for i := X to Y do
begin
dem := 0;
for j := 2 to i div 2 do
if i mod j = 0 then
begin
dem := dem + 1;
break;
end;
if dem = 0 then
tong := tong + i;
end;
writeln('Tong cac so nguyen to tu ', X, ' den ', Y, ' la: ', tong);
readln;
end.
uses crt;
var x,y:int64;
begin
clrscr;
readln(x,y);
writeln(x+y);
writeln(x-y);
writeln(x*y);
writeln(x/y:4:2);
readln;
end.
đây chỉ là bài ví dụ cho bạn áp dụng nhé:
var i,j,k,n,m:longint; f1,f2:text; S,St:string; function ktsnt(n:qword):boolean; var k:qword; begin ktsnt:=false; k:=2; if n<2 then exit; if n=2 then ktsnt:=true; while k*k <= n do begin if n mod k = 0 then exit; inc(k); end; ktsnt:=true; end; {---------------------------------------------------------------} function daonguoc(n:qword):boolean; begin str(n,S);St:=''; for i:=length(S) downto 1 do St:=St+S[i]; val(St,k); if ktsnt(k) then daonguoc:=true else daonguoc:=false; end; {---------------------------------------------------------------} begin assign(f1,'daonguoc.inp');reset(f1); assign(f2,'daonguoc.out');rewrite(f2); readln(f1,n,m); for j:=n to m do if daonguoc(j) then writeln(f2,j); close(f1);close(f2);end.
mình dùng cách khác nhé
var x,y:longint;
begin
write('nhap x,y:');readln(x,y);
repeat
if x>y then x:=x-y else y:=y-x;
until x=y;
write('ucln la ',x);
readln;
end.