Chương trình đơn giản
Các câu hỏi tương tự
Cho đoạn chương trình sau:
i : = 1; S := 0;
While i < 0 do
Begin
S : = S +2;
i : = i+1;
End;
Đoạn chương trình trên sẽ cho kết quả S là
A. 20
B. 10
C. 14
D.18
( Giải thích nữa ạ)
Xét đoạn chương trình sau:
a:=100; write('b='); readln(b);
if (a<=b) then write(-1) else write(1);
if (a=b) then write (0);
Nhập giá trị bao nhiêu cho b để đoạn chương trình nhận được kết quả là -10 ?
Câu 1(3đ). Hãy khai báo mảng một chiều lưu trữ 100 phần tử số nguyên có giá trị trong khoảng từ 0 đến 255 bằng cách: a. Trực tiếp; b. Gián tiếp: c. Tham chiếu đến phần tử thứ 50 và gán giá trị bằng 45. Câu 2(4đ). Viết chương trình nhập N và N số nguyên a,, a2,..an. Tính tổng các phần tử chăn chia hết cho 3. Câu 3 (3đ). Cho đoạn chương trình sau: a. Với: N6; k8 A 45 56 73 64 55 98 Program Bai3; Type KM-array[1..100] of LongInt; Var a:KM; i,N, k:Integer; Begin Write(Nhap N );Readln (N); Write(Nhap...
Đọc tiếp
Câu 1(3đ). Hãy khai báo mảng một chiều lưu trữ 100 phần tử số nguyên có giá trị trong khoảng từ 0 đến 255 bằng cách: a. Trực tiếp; b. Gián tiếp: c. Tham chiếu đến phần tử thứ 50 và gán giá trị bằng 45. Câu 2(4đ). Viết chương trình nhập N và N số nguyên a,, a2,..an. Tính tổng các phần tử chăn chia hết cho 3. Câu 3 (3đ). Cho đoạn chương trình sau: a. Với: N=6; k=8 A= 45 56 73 64 55 98 Program Bai3; Type KM-array[1..100] of LongInt; Var a:KM; i,N, k:Integer; Begin Write('Nhap N= ');Readln (N); Write('Nhap k= '); Readln (k); For i:-1 to n do Begin Write(Nhap a[',I,']= '); Readln(a[i]); If trunc (sqrt (a(i]))=k then Write (i:6); End; Chương trình sẽ đưa ra kết quả gì? b. Với: N=6; k=5 A= 45 56 73 64 55 98 Chương trình sẽ đưa ra kết quả gì? c. Sửa điều kiện lệnh If thành kiểm tra xem a[i] có là số chính phương hay không? (Số chính phương là: x2 = ai. VD 9 = 32; 16 = 42; 81 = 92) Readln; End.
Cho 2 số nguyên k và m. Kết quả sau khi thực hiện đoạn chương trình sau là gì?
k:=2500; m:=50;
writeln (k/m:2:3)
A. 2500/50:2:3
B.. Chương trình báo lỗi (vì 2<3)
C. 50.000
D. 8.333
Cho 2 số nguyên k và m. Kết quả sau khi thực hiện đoạn chương trình sau là gì?
k:=2500; m:=50;
writeln (k/m:2:3)
A. 2500/50:2:3
B.. Chương trình báo lỗi (vì 2<3)
C. 50.000
D. 8.333
Cho đoạn chương trình sau: Sau khi thực hiện đoạn chương trình này trên màn hình hiện gì?
x :=17;
y :=sqr(x)+sqr(x)/3;
writeln('y=',y:4:0);
A. y=100
B. 100
C. y=100. {có dấu chấm}
y=100.4564
Cho đoạn chương trình sau: Sau khi thực hiện đoạn chương trình này trên màn hình hiện gì?
x :=17;
y :=sqr(x)+sqr(x)/3;
writeln('y=',y:4:0);
A. y=100
B. 100
C. y=100. {có dấu chấm}
y=100.4564
Giúp em giải với ạ
B1: Viết chương trình đổi chỗ 2 số nguyên x,y theo thứ tự tăng dần
B2:Viết chương trình tính diện tích hình thang
B3:Viết chương trình nhập vào 3 số a,b,c. Xét xem 3 số a,b,c có lập thành tam giác không? Tam giác đó là tam giác gì?
B4:Viết chương trình kiểm tra xem trong 3 số a b c nhập từ bàn phím, số nào là lớn nhất
Cho 3 số nguyên dương a, b, c.
Yêu cầu: Tính \(\frac{a+b+c}{abc}\sqrt{abc}\)
Dữ liệu vào từ file ‘VALUE.INP’ chứa 3 số nguyên dương a, b, c (a, b, c≤1012). Mỗi số trên 1 dòng.
Kết quả ghi vào file ‘VALUE.OUT’ kết quả tính được (lấy 2 chữ số phần thập phân).