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
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)
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
K
7 tháng 4 2021
uses crt;
var i,s:integer;
begin
for i:=1 to 50 do writeln(*);
s:=0;
For i:=1 to 99 do while i mod 2 = 1 do s:=s+i;
writeln('tong cua phep tinh la',s); readln;
end.
7 tháng 4 2021
uses crt;
var i,t:integer;
begin
clrscr;
for i:=1 to 50 do
write('*');
writeln;
t:=0;
for i:=1 to 100 do
if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.