Viết chương trình tính và đưa ra kết quả sau : - Tổng và tích các số chẵn chia hết cho 5 phạm vi từ 10->200 - Tổng các số lẻ chia hết cho 3 phạm vi 20->150
2 câu trả lời
Bài 1 :
program tinh;
uses crt;
var i, s, t : integer;
begin
clrscr;
s := 0;
t := 1;
for i := 10 to 200 do
if i mod 5 = 0 then
begin
s := s + i;
t := t * i;
end;
writeln('tich la :', t);
writeln('tong la :', s);
readln
end.
Câu 2 :
program tinh;
uses crt;
var i, s : integer;
begin
clrscr;
s := 0;
for i := 20 to 150 do
if (i mod 3 = 0) and ( i mod 2 <> 0) then
begin
s := s + i;
end;
writeln('tong la :', s);
readln
end.
$\textit{@Elaina2k4}$
→Xin hay nhất
→Viết chương trình nhập vào số nguyên n và tính tổng các số lẻ
↔(các số lẻ là số không chia hết cho 2)
→trong khoảng từ 1 đến n
↔( ví dụ nhập = 10, ta sẽ có tổng sau s=1+3+5+7+9=25)
`=>`Hoặc:
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=5;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+5;
End;
Writeln(S);
Readln;
⇒Và:
Program HOC24;
var a: array[1..32000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu cua day : '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 3=0) and (a[i] mod 2=0) then t:=t+a[i];
write('Tong cac so duong chan chia het cho 3 la : ',t);
readln
end.
