Viết chương trình tính tổng bình phương các số chẵn từ 1 đến n .với n được nhập từ bàn phím (dùng lệnh while... do)
2 câu trả lời
uses crt;
var n,i,s,dem:longint;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
i:=1;
dem:=0;
while i<=n do
begin
if(i mod 2=0)then
begin
s:=s+sqr(i);
inc(dem);
end;
inc(i);
end;
write('s=',s/dem:4:2);
readln
end.
program tong_binh_phuong;
uses Crt;
var i,n: integer;
s:longint;
begin
write('nhap so n=');readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i; i:=i+1;
end;
write('tong cua',n,' so tu nhien dau tien la',s);
readln
end.
Mong đánh giá 5 sao và hay nhất
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
