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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
HT
0
20 tháng 8 2025
Cô hiện tại đang có hơn 31000SP rùi!
BK
18 tháng 10 2016
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
PN
0
NV
1
LD
19 tháng 4 2019
program dgv;
uses crt;
var x,y,z,n,i: integer;
p,S,A: real;
begin
clrscr;
writeln('Nhap x: '); read(x);
writeln('Nhap y: '); read(y);
writeln('Nhap z: '); read(z);
writeln('Nhap n: '); read(n);
if x mod 2 = 0 then write (x,' la so chan') else writeln(x,'la so le');
if y mod 2 = 0 then write (y,' la so chan') else writeln(y,'la so le');
if z mod 2 = 0 then write (z,' la so chan') else writeln(z,'la so le');
if n mod 2 = 0 then write (n,' la so chan') else writeln(n,'la so le');
if n mod 3 <> 1 then writeln('Tong khong co quy luat') else
begin
S:=0;
for i:= 0 to (n-1)/3 do
S:= S+(3i+1);
writeln('S = ',S);
A:=0;
p:=1;
for i:=1 to n do
begin
p:= p*(x/(x+y));
A:=A+p;
end;
writeln('A = ',A);
readln
end.
TL
3
ND
3
Olm chào em, khi đăng câu hỏi lên diễn đàn Olm, em cần đăng đầy đủ nội dung và yêu cầu, để nhận được sự trợ giúp tốt nhất từ cộng đồng Olm em nhé. Cảm ơn em đã đồng hành cùng Olm. Chúc em học tập hiệu quả và vui vẻ cùng Olm.
rthiojhtrlkrtjhlkjrthlkrtjnhlkr10nhrtk0hn0lrthknltk0nhl0ktrnhkltw3rnh0sak320drtn h3e;d03d30e
De30de313d
3e2d13e
d3ed
13ed41
3ed143e
de314
d3e1
d3ed4
ed153e
d153ed
3e541d
3e5
d143e
d53ed
513ed51
e3d143e
d34ed
3ed1
rcdr4t
cv1gtrvc
14rfcv14
t5c1t5
c14frc
1fc
14fr c
1'rf 14
r 14
ecr14
14
14
14
14
14
14
1
14
41
143'EG4ew5g
4
44
s0d14
014ẻ014g
0se
014r
041g0
14ergé g0r
1014
s01
g
r001414
0jkhg0g00g00jg0j0gg112g2j21