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
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.
Lời giải 1 :
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.
Thảo luận
Lời giải 2 :
`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ó thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 11
Lớp 11 - Năm thứ hai ở cấp trung học phổ thông, gần đến năm cuối cấp nên học tập là nhiệm vụ quan trọng nhất. Nghe nhiều đến định hướng sau này rồi học đại học. Ôi nhiều lúc thật là sợ, hoang mang nhưng các em hãy tự tin và tìm dần điều mà mình muốn là trong tương lai nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK