viết chương trình in ratổng của các số chẵn từ 1 đến n với n nhập vào từ bàn phím. giúp mik vs ạ
2 câu trả lời
program Tong_cac_so_chan;
uses crt;
var T, n, i: integer;
Begin
clrscr;
write('Nhap n: '); readln(n);
T:=0;
for i:=1 to N do if (i mod 2=0) then T:=T+i;
writeIn('Tong cac so chan la tu 1 den', n, ' la: ', T);
readIn;
End.
Program tong_so_chan;
Uses crt;
Var
S,N,I:Integer;
Begin
Clrscr;
Write('Nhap N ');Readln(N);
S:=0
For I:=1 to N do
If ( I mod 2=0) then
S:=S+I;
WriteIn('Tong cac so chan la',S)
ReadIn;
End
Câu hỏi trong lớp
Xem thêm
- Đề 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
