Tính tổng các số lẻ từ 1 đến n với n là số nguyên được nhập từ bàn phím (FreePassCal
2 câu trả lời
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do if i mod 2=1 then inc(s,i);
writeln('Tong cac so le tu 1 den ',n,': ',s);
readln;
end.
program kaito;
uses crt;
var i, n, s: integer;
begin
clrscr;
write('Nhap so n: '); readln(n);
for i:=1 to n do if (i mod 2 <> 0) then s:=s+i;
writeln('Tong cac so le tu 1 den ',n,' la: S = ',s);
readln
end.
CHÚC BẠN HỌC TỐT!!!
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
