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.
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.