uses crt;
var a,i:integer;
s:real;
begin
clrscr;
write('Nhap a='); readln(a);
s:=0;
for i:=1 to 50 do
s:=s+i/(a+i);
writeln(s:4:2);
readln;
end.
Program HOC24;
var s: real;
i,a: integer;
begin
write('Nhap a = '); readln(a);
s:=0;
if a>2 then
for i:=1 to 50 do s:=s+i/(a+i) else write(a,' chua thoa man dieu kien >2');
write('S = ',S:1:2);
readln
end.
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n mod 2<>0 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else begin
for i:=1 to n do
if i mod 2=0 then write(i:4);
end;
readln;
end.
Sau khi thực hiện đoạn lệnh sau, thì n có giá trị bằng mấy?
n:=1;
for i:=1 to 5 do n:=n+1;
A.4 B.5 C.6 D.7
Đầu tiên n=1
Cứ tăng i lên 1 đơn vị thì n lúc sau bằng n ban đầu +1
Lần thứ nhất n=1+1=2
Lần thứ 2: n=2+1=3
Lt3: n=3+1=4
Lt4: n=4+1=5
Lt5: n=5+1=6
===> C.6
Sau khi thực hiện đoạn lệnh sau, thì m có giá trị bằng mấy?
M:=1:
While m<0 do m:=m+1;
Write(m);
A.11 B.9 C.8 D.10
Biết ngay đề bài có vấn đề mà, cách tốt nhất để xem nó in ra màn hình cái gì là đánh vô Free Pascal
Đó, xem lại đề bài đi bạn :v
Sau khi thực hiên đoạn lệnh sau, thì màn hình hiện lên kết quả nào?
a:=1; b:=2;
a:=a+b;
if a<b then a:=a+2 else a:=a+3;
write(a);
A.5 B.7 C.6 D.4
uses crt;
var x,y:integer;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
if x>y then writeln(x-y)
else writeln(x+y);
readln;
end.
Câu 1: Trong NNLT C++, các câu lệnh sau câu lênh nào đúng cấu trúc?
A. If a>b then write("a la so lon nhat");
B. If (a>b) cout<<"a la so lon nhat";
C. If (a>b) then write ("a la so lon nhat");
D. If (a>b) cout<<"a la so nhat";
Câu 2: Trong NNLT C++, các câu lệnh sau câu lệnh nào đúng cấu trúc?
A. If a>b then cout("a la so lon nhat");
B. If (a>b) cout<<"a la so lon nhat";
C. If (a>b) then cout<<("a la so lon nhat");
D. If (a>b) cout>>"a la so lon nhat";
Câu 3: Trong NNLT C++, các câu lệnh sau câu lệnh nào đúng cấu trúc?
A. If (a>b) Max=a else;Max=b
B. If (a>b) Max=a else Max=b
C. If (a>b) Max=a; else Max=b;
D. If (a>b); Max=a; else Max=b;
Câu 4: Trong NNLT C++, các câu lệnh sau câu lệnh nào đúng cấu trúc?
A. If (a>b) Max=a else;
B. If (a>b) Max=a else
C. If (a>b) Max=a;
D. If (a>b) ; Max=a;
Câu 1: B
Câu 2: B
Câu 3: C
Câu 4: C
nhập vào 3 số nguyên từ bàn phím sau đó dưa ra màn hình. tổng 3 số này có chia hết cho 3 hoặc chia hết cho 5 hay không
Program bai1;
uses crt;
var a,b,c: integer;
s: longint;
begin
clrscr;
write('nhap so nguyen 1 = '); readln(a);
write('nhap so nguyen 2 = '); readln(b);
write('nhap so nguyen 3 = '); readln(c);
s:=a+b+c;
if (s mod 3 = 0 ) and (s mod 5 = 0 ) then
writeln('tong 3 chu so a b c chia het cho 3 va 5') else
writeln('tong 3 chu so a b c khong chia het cho 3 va 5');
readln;
end.
program baitap;
uses crt;
var a,c,b,s:integer;
begin
clrscr;
write('nhap so thu nhat: ');
readln(a);
write('nhap so thu hai: ');
readln(b);
write('nhap so thu ba: ');
readln(c);
write(a:4,b:4,c:4);{xuat ra 3 so vua nhap}
writeln;
S:= a+b+c;
if S mod 5=0 then
writeln('tong ba so chia het cho 5')
else if S mod 3 = 0 then
writeln('tong ba so chia het cho 3');
readln;
end.
XÉT 3 ĐIỂM P,Q,R NẰM TRÊN TRỤC HOÀNH CỦA MỘT HỆ TRỤC TỌA ĐỘ VUÔNG GÓC, CÓ HOÀNH ĐỘ TƯƠNG ỨNG LẦN LƯỢT LÀ X,Y,Z . GIẢ SỬ Y<Z. VIẾT CÂU LỆNH RẼ NHÁNH ĐỂ ĐIỂM Q NẰM GIỮA 2 ĐIỂM P VÀ R THÌ THÔNG BÁO RA MÀN HÌNH
AI GIÚP MÌNH VỚI Ạ, MÌNH XIN CẢM ƠN.
MAI MÌNH KIỂM TRA RỒI
HELP ME <3