Nhập từ bàn phím tuổi của cha và con (hiện tại tuổi cha lớn hơn hai lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25 ). Đưa ra màn hình câu trả lời cho câu hỏi “Bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con ?”.
K
Khách
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.
24 tháng 11 2021
bprogram min
uses crt
var A: array [1...250] of integer
tong :integer;
begin
tong:=0
writeln(‘nhap n:’); readln (n)
forr i:=1 to n do
begin
writeln (‘nhap phan tu thu ‘,i);
readln (A[i] );
end
for i:=1 to n do
begin
if (A[i] mod 3=0)
then tong:=tong +A[i];
end
writeln (Tong cac phan tu chia het cho 3)
readln ;
end
TN
4
NT
1
16 tháng 11 2021
Câu 3: Viết câu lệnh rẽ nhánh tìm nghiệm của BPT ax2+bx+c>0 (a>0)
Đáp án :
Program gptb2; Uses crt; Var a,b,c:real; D,X1,X2:real; Begin Clrscr; Write(‘a,b,c:’); Readln(a,b,c); D:=b*b-4*a*c; If D<0 then writeln(‘Phuong trinh vo nghiem ’) Else Begin X1:=(-b-sqrt(D))/(2*a); X2:=-b/a-X1; Writeln(‘X1=’,X1:8:3,’ X2=’,X2:8:3); End; Readln; End.
HT
16 tháng 11 2021
Câu 8. Câu lệnh while – do có cú pháp nào dưới đây?
A. while <điều kiện> do <câu lệnh>;
B. write <điều kiện> do <câu lệnh>;
C. while <điều kiện> to <câu lệnh>;
D. while <điều kiện> begin <câu lệnh>;end;
Câu 9. Cho biết kết quả khi thực hiện đoạn câu lệnh:
S:=0;
For i:=1 to 12 do if i mod 2 <>0 then S:=S+i;
Kết quả:
A. S=38
B. S=36
C. S=45
D. S=32
Câu 10. Cho biết kết quả khi thực hiện đoạn câu lệnh:
c:=a; a:=a-b; b:=a*c; S:=a+b;
Khi a=6 ; b=2. Kết quả:
A. S= 8
B. S= 9
C. S= 12
D. S=2
16 tháng 11 2021
Câu 5. Trường hợp nào sau đây không phải là lệnh gán trong Pascal
A. cd := 50;
B. 10 := a;
C. a := a * 2;
D. ab := 1000;
Câu 6: Các biểu diễn của phép toán số học với số nguyên trong Pascal là:
A. +, -, *, /, div, mod
B. +, -, *, /
C. +, -, *, div, mod
D. +, -, x,:
16 tháng 11 2021
Câu 4. Cho biết kết quả trả về của biểu thức sau:
(100 div 9) mod 9 + (14 div 3) div 2.
A. 10
B. 5
C.3
D. 4
