Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
a) Viết chương trình in ra các số chẵn trong đoạn từ 20 đến 30
program Tin_hoc;
uses crt;
var i,tong:integer;
begin
clrscr;
tong:=0;
for i:= 1 to 30 do i mod 20 = 0 then tong:=tong + i;
writeln('Tong cac so chan tu 1 den 30 la: ',tong);
readln;
end.
b)Tính tổng các số chẵn đó.
Program (...); {Tên chương trình tùy thích}
Uses crt;
Var i: integer;
S: longint;
Begin
Clrscr;
S:=0;
For i:=20 to 30 do S:=S+i;
Writeln('Tong cac so tu 20 den 30 la ',S);
Readln
End
c) Đếm xem có bao nhiêu số chẵn trong đoạn từ 20 đến 30
program an_danh;
uses crt;
var n,i:integer;
begin
clrscr;
n:= 0;
for i:= 20 to 30 do
if i mod 2 = 0 then n:= n + 1;
write('Cac so chan pham vi tu 20 den 30 la: ',n);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
print('Các số chẵn từ 20 - 30 : ', end = ' ')
s = 0
d = 0
for i in range(20, 31) :
if i % 2 == 0 :
print(i, end = ' ')
s += i
d += 1
print(' ')
print('Tổng các số chẵn : ', s)
print('Có ', d ,' số chẵn đoạn 20 - 30')
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
2
6
2
mình bảo sử dụng lệnh range bạn ơi
293
335
192
ai bảo ko nói sớm chi
2
6
2
nó ít dài dòng hơn
2
6
2
dù sao thì cảm ơn