Câu 1: Viết chương trình: a. in ra màn hình các số là bội của 6 và 9 trong phạm vi từ 1 đến 100. b. Tính tổng các số chẵn trong phạm vi từ 50 đến 100. c. Đếm số lượng số chia hết cho 3 trong phạm vi từ 50 đến 100. Câu 2: Viết chương trình nhập n số nguyên là nhiệt độ của n ngày, tính nhiệt độ trung bình của n ngày đã nhập.
2 câu trả lời
`1)`
var i,d:byte;
t:integer;
begin
clrscr;
d:=0; t:=0;
write(‘a. Cac so la boi cua 6 va 9 la: ‘);
for i:=1 to 100 do
if (i mod 6=0) and (i mod 9)=0 then write(i,’ ‘);
for i:=50 to 100 do
begin
if i mod 2=0 then t:=t+i;
if i mod 3=0 then d:=d+1;
end;
writeln;
writeln(‘b. Tong cac so chan tu 50 den 100 la: ‘,t);
writeln(‘c. Tu 50 den 100 co ‘,d,’ so chia het cho 3′);
readln;
end.
`2)`
var A:array[1..1000] of integer;
n,i,t:integer;
begin
clrscr;
write(‘Nhap so ngay tinh: ‘); readln(n);
t:=0;
for i:=1 to n do
begin
write(‘Nhiet do ngay thu ‘,i,’: ‘); readln(A[i]);
t:=t+A[i];
end;
write(‘Nhiet do trung binh la: ‘,t/n:2:2);
readln;
end.
Câu 1:
program bai_giai;
uses crt;
var i,d:byte;
t:integer;
begin
clrscr;
d:=0; t:=0;
write('a. Cac so la boi cua 6 va 9 la: ');
for i:=1 to 100 do
if (i mod 6=0) and (i mod 9)=0 then write(i,' ');
for i:=50 to 100 do
begin
if i mod 2=0 then t:=t+i;
if i mod 3=0 then d:=d+1;
end;
writeln;
writeln('b. Tong cac so chan tu 50 den 100 la: ',t);
writeln('c. Tu 50 den 100 co ',d,' so chia het cho 3');
readln;
end.
Câu 2:
program nhiet_do;
uses crt;
var A:array[1..1000] of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap so ngay tinh: '); readln(n);
t:=0;
for i:=1 to n do
begin
write('Nhiet do ngay thu ',i,': '); readln(A[i]);
t:=t+A[i];
end;
write('Nhiet do trung binh la: ',t/n:2:2);
readln;
end.
