Với đoạn chương trình Pascal sau đây, hãy cho biết lệnh Writeln in ra màn hình giá trị của j và k là bao nhiêu?(i,j,k là tên các biến kiểu nguyên)
j:=1; k:=4;
for i:=1 to 6 do
if i mod 3=0 then j:=j+1;
k:=k+j;
Writeln(j,k);
Màn hình sẽ in ra giá trị: 3 7
Giải thích:
Câu lệnh if i mod 3=0 then j:=j+1 có nghĩa là j bằng một cộng với số các số chia hết cho 3.
k:=k+j có nghĩa là k bằng bốn cộng với giá trị của j đã tìm.
sau khi đoạn chương trình x:=0; y:=5; for i:=1 to 5 do x:=x+2; y:=y+x; cho biết lệnh lặp giá trị x và y và chương trình thực hiện bao nhiêu vòng lặp?
Hãy tìm hiểu đoạn chương trình sau đây.
i:=1; j:=2; k:=3; |
While i<=6 do i:=i+1; j:=j+1; k:=k+j; |
Space:=’ ’; |
Write(I,space,j,space,k); |
Sau khi thực hiện đoạn chương trình trên, lệnh Writeln in ra màn hình giá trị của i, j, k lần lượt là bao nhiêu?
A. 2,3,4 B. 7,2,3 C. 7,3,6 D. 6,3,7
EM HÃY VIẾT CHƯƠNG TRÌNH THỰC HIỆN YÊU CẦU SAU:
Nhập giá trị n từ bàn phím.Tính và kết quả ra màn hình tổng các chữ số của n(biến T)
#include <bits/stdc++.h>
using namespace std;
long long n,x,t;
int main()
{
cin>>n;
t=0;
while (n>0)
{
x=n%10;
t=t+x;
n/=10;
}
cout<<t;
return 0;
}
Var t,n:integer;
begin
write('nhap n = ');readln(n);
while n div 10 <> 0 do
begin
t:=t+(n mod 10);
n:=n div 10;
end;
write('Tong cac chu so cua ',n,' la ',t);
readln;
end.
In giá trị X in ra màn hình .Ta dùng lệnh readln hay writeln ???
Dùng writeln nhé bn!
Vì readln là lưu vào bộ nhớ!!
Cho dãy số nguyên a1,a2,...an gồm n phần tử (n<=300) a, Khai báo và đoạn chương trình để nhập số lượng phần tửN các giá trị cho dãy a1,a2,..an?
b,Đếm các phần tử là bội của 3 trong dãy và đưa ra màn hình?
kiểm tra xem dãy trên có phải là cấp số cộng không?
uses crt;
var a:array[1..300]of integer;
i,n,dem,kt,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
t:=abs(a[2]-a[1]);
kt:=0;
for i:=1 to n do
if t<>abs(a[i]-a[i-1]) then
begin
kt:=1;
break;
end;
if kt=0 then writeln('Day la cap so cong')
else writeln('Day khong la cap so cong');
readln;
end.
Đối với từng đoạn chương trình Pascal sau đây, hãy cho biết lệnh writeln in ra màn hình giá trị của i , j, k là bao nhiêu?
i:=1; j:=2; k:=3;
while i<6 do i:=i+1; j:=j+1; k:=k+j;
writeln(i,’ ’, j,’ ’, k);
Giá trị của j, k sau khi thực hiện đoạn chương trình là?
Giá trị của j là 7
Giá trị của k là 28
Câu lệnh while do không ảnh hưởng đến j và k
j = 2 nên j = j + 1 = 3
k = 3 nên k = k + j = 3 + 3 = 6
Cho hàm số f(x) liên tục trên đoạn [0;3] và có đồ thị như hình vẽ bên. Gọi M và m lần lượt là giá trị lớn nhất và nhỏ nhất của hàm số đã cho trên [0;3]. Giá trị của M + m bằng ?
A. 5
B. 3
C. 2
D. 1
Chọn D
Dựa vào hình vẽ ta có : M = 3, m = -2. Do đó: M + m = 1
Cho M là trung điểm của đoạn thẳng PQ , biết MQ=3cm
1. Tính độ dài đoạn thẳng MP;PQ
2.Trên tia MQ lấy điểm K sao cho MK=6cm . Chứng tỏ Q là trung điểm của đoạn thẳng MK
3. Trên hình vẽ có bao nhiêu đoạn thẳng ? Hãy kể tên
