Bài 3: Cấu trúc chương trình
Câu 6:Cho đoạn chương trình:
Var a,b: integer;
Begin
Writeln(‘Nhap a va b: ’); readln(a, b); a:= sqr(b); b:=sqrt(a);
Writeln(‘Gia tri moi cua a= ’,a,‘ cua b= ’,b);
Readln; End.
Chạy chương trình trên giá trị của a và b sẽ:
A. a = b 2 , b : giữ nguyên; B. a : giữ nguyên, b = a 2 ;
C. a = b; D. Không tính được.
viết chương trình nhập vào từ bàn phím 2 số nguyên a,b đưa ra màn hình giá trị lớn nhất trong chúng
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<max(a,b);
return 0;
}
Đúng 1
Bình luận (0)
lập trình nhập vào từ bàn phím số nguyên dương n tính và in ra màng hình tổng các số chẳn từ 1 đến n
#inckude <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1;i<=n; i++)
if (i%2==0) t=t+i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình in ra màn hình các dòng chữ "Xin chao cac ban" và "Moi ban den voi Pascal
uses crt;
begin
writeln('Xin chao cac ban');
writeln('Moi ban den voi Pascal');
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào một số nguyên x. Tính và đưa ra màn hình giá trị y = ∛x + √x + 1. *
Câu trả lời của bạn
#include <bits/stdc++.h>
using namespace std;
int main() {
double x, y;
cin >> x;
if(x<0) {cout << "Khong co y thoa man bieu thuc tren";}
if(x>=0)
{y=cbrt(x)+sqrt(x)+1;
cout << y << endl;}
return 0;
}
Chúc bn học tốt!
Đúng 0
Bình luận (0)
Giúp mình hãy khai báo biến để lưu trữ 2 số thực
có thể bạn khai báo array thì có thể chứa 2 số thực á
Đúng 0
Bình luận (0)
Viết chương trình a,Nhập vào một xâu kí tự b,đếm và in ra màn hình số kí tự là chữ cái(chữ hoa) có trong xâu
Các em làm bài tập sau: Cho dãy số 999, 998, 997,…, 100. Viết chương trình đưa ra tổng các số nguyên tố của dãy số trên.
Xem chi tiết
uses crt;
var i,t,kt,j:integer;
begin
clrscr;
t:=0;
for i:=999 downto 100 do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln('Tong cac so nguyen to trong day la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 2 số a,b (khác nhau). Hãy tìm và hiển thị số nhỏ nhất trong 2 số đó
Xem chi tiết
var a,b: real;
begin
write('Nhap a,b: '); readln(a,b);
if a < b then writeln(a:5:2) else if a > b then writeln(b:5:2) else writeln('Khong co');
end.
Đúng 0
Bình luận (0)
uses crt;
var a,b:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until a<>b;
if a<b then writeln('So nho nhat la: ',a:4:2)
else writeln('So nho nhat la: ',b:4:2);
readln;
end.
Đúng 0
Bình luận (0)