Viết chương trình tính tổng các số Chẵn của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím? Pascal cần gấp em cảm ơn mn ạ
2 câu trả lời
Giải:
Program cau 1;
Uses Crt;
Var i, N: integer;
S: longint;
Begin
Write ('nhap N') ; readln (N) ;
S := 1;
For i := 2 to N do S := S + i ;
i := i + 2 ;
Writeln ('tong cua N' ,N, 'so chan tu nhiên đau tien' , S) ;
Readln
End.
uses crt;
var s,i,n:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln('Ket qua: ',s);
readln
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
