Uses crt;
var i,n,m: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2=0) then m:=m+i*i;
writeln(m);
readln;
end.
Đúng 0
Bình luận (0)
Bài 7. Câu lênh lặp
Các câu hỏi tương tự
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?
Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)
A= 1.3 + 2.4 + 3.5 +...+ n(n+2).
Giúp mình với nhanh nhanh nha.
Viết chương trình tính tổng các số chẵn từ 1 tới n (với n được nhập từ bàn phím) bằng vòng lặp While..do *
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
viết chương trình in ra màn hình tính tổng các số chẵn có trong dãy số từ 0 đến n (n được nhập từ bàn phím)
viết chương trình nhập n số nguyên từ bàn phím , nhập giá trị cho từng phần tử từ 1 đến N, đếm các số chẵn và tính tổng các số lẻ, hiện kết quả ra màn hình Giúp mik với ạ
Viết chương trình tính tổng các số là bội của 2 từ 0--> n ( n nhập từ bàn phím)
viết chương trình sử dụng lệnh lặp for do để tính trung bình các số chẵn của n số thực các số n được nhập vào từ bàn phím
Viết chương trình tính tổng các số chẵn và các số lẻ từ 1 đến N.Với N nhập từ bàn phím.
Ví dụ: Nhập N=5 thì kết quả: Tổng các số từ 1 đến N là 6,Tổng các số lẻ là 9