câuv1 :viết chương trình tính tổng các số lẻ đầu tiên cho tới khi được tổng nhỏ nhất > 5.000 . đưa kết quả ra màn hình Câu 2: viết chương trình nhập số học sinh và điểm trung bình môn của các học sinh trong một lớp suất ra màn hình điểm trung bình môn của các học sinh đó

NguyenTrang

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 20 xem

1 trả lời

Thích Trả lời

nn0350227

Câu 1:

uses crt;
var i,s:longint;
begin
clrscr;
s:=0;i:=1;
while s<=5000 do
begin
if i mod 2=1 then inc(s,i);
inc(i);
end;
write(s);
readln;
end.

Câu 2:

uses crt;
var a:array[1..1000000] of real;
s:extended;
n,i:longint;
begin
clrscr;
write('Nhap so luong hoc sinh: '); readln(n);
for i:=1 to n do
begin
write('Nhap diem hoc sinh thu ',i,': '); readln(a[i]);
s:=s+a[i];
end;
writeln('Diem trung binh: ',s/n:0:2);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

dathuonglinh

Câu 1:

Uses crt;

Var S, i: longint;

BEGIN

Clrscr;

S:=0;

i:=0;

Repeat

Inc(i);

If i mod 2 = 0 then S:=S+i;

Until S>=5000

Readln;

Write('Tong la: ',S);

END.

Câu 2:

Uses crt;

Var A: ARRAY[1..100] OF REAL;

i, n: integer;

S: real;

BEGIN

Clrscr;

Write('Nhap so hoc sinh: '); Readln(n);

For i:=1 to n do

Begin

Write('Nhap diem TB mon cua hoc sinh thu ',i,': ');

Readln(A[i]);

End;

For i:=1 to n do S:=S+A[i];

S:=S/n;

Writeln('TB: ',S:0:4)

Readln;

END.

Cảm ơn bạn đã đọc câu trả lời của mk, chúc bạn học tốt! Cho mk câu trả lời hay nhất nha! Thanks!

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

cho (p) y=-x^2 và (d) y=2x+m-3, tìm điều kiện để (p) cắt (d) tại hai điểm phân biệt sao cho (y1+2x2+m)(y2+2x1-3m)=-51

quãng đường từ A đến B dài 135 km, một người đi ô tô từ A khởi hành lúc 7giờ 5 phút đi đến B với vận tốc 54 km/h.Hỏi người đi ô tô đến B lúc mấy giờ?

Trình bày hiểu biết của em về an toàn giao thông

Đến giữa thế kỷ XVIII, kinh tế của 13 thuộc địa Anh ở Bắc Mĩ phát triển theo hướng nào? * 25 điểm A.Phong kiến. B.Tư bản chủ nghĩa. C.Nửa phong kiến nửa thuộc địa. D.Xã hội thuộc địa nửa phong kiến.

đăcxj điểm nền kinh tế bắc mĩ mĩ

Tren nua mat phang bo chua tia Ox ve tia Oy va Oz sao cho goc xOy=40 do xOz=80 do ta co : a, tinh goc yOz b,ve tia Ot la tia doi cua tia Ox. tinh yOt

Vẽ anime buồn NL: team mk ơi mấy bạn đoàn kết đi chứ từ hôm qua tới giờ rồi đó !!!=(( tui mệt mỏi lắm rối!!!

Gân lá,kiểu lá và cách xếp lá của cây phượng

Thời gian vừa qua, trong nhà trường có hiện tượng hút mua bán thuốc lá điện tử.Đây là hiện tượng cần lên án.Ban chỉ huy Chi đội tổ chức cuộc họp nhằm tìm ra biện pháp ngăn chặn và chấm dứt hiện tượng nói trên.Em hãy nêu phương hướng hành động (thể hiện quyền tự do ngôn luận) của để góp phần giảm thiểu hiện tượng tiêu cực nêu trên?

Vì sao nói:"Trận chiến trên sông Bạch Đằng năm 938 là một chiến thắng vĩ đại của dân tộc ta"

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến