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
HV
19 tháng 9 2017
a) [(15+20) * (15+20) - 100]/2
b) 15 + 20 - [(50+7)*(50+7)]/5
c) 15 + 20 + [(45-20)(15+20)]/3
2
27 tháng 4 2020
Bạn ơi, hình như đề sai rồi đó.
Vì n ko thỏa mãn n> 20 nên vòng lặp ko xảy ra. Nên khi kết thúc T vẫn bằng 50
27 tháng 5 2020
uses crt;
var a,b,c,d:real;
i,j,n:integer;
begin
clrscr;
a:=1;
i:=5;
while i<=40 do
begin
a:=a*i;
i:=i+1;
end;
writeln('A=',a:0:0);
b:=0;
i:=15;
while i<=170 do
begin
b:=b+i;
inc(i);
end;
writeln('B=',b:0:0);
j:=-20;
c:=0;
while j<=50 do
begin
c:=c+j;
inc(j);
end;
writeln('C=',c:0:0);
write('Nhap n='); readln(n);
d:=0;
i:=1;
while i<=n do
begin
d:=d+1/i;
inc(i);
end;
writeln('D=',d:4:2);
readln;
end.
7 tháng 12 2021
C
(mình không học pascal nhưng mình sẽ đoán là c bởi vì 15/5 không có dư nên phần dư sẽ là 0)