Bài 2: Viết chương trình tính tổng T=1+2+3+...+n với n nhập từ bàn phím. Bài 5: Viết chương trình tính T=1+3+5+...+n với n nhập từ bàn phím. Bài 6: Viết chương trình tính Q=2+4+6+...+n với n nhập từ bàn phím
2 câu trả lời
- trangthao118
bài 2:
program ct;
uses crt;
var s,i,n:integer;
begin
T:=0;
for i:=1 to n do T:=T+i;
writeln('tong',T);
readln;
end.
Bài 5:
program ct;
uses crt;
var s,i,n:integer;
begin
T:=1;
for i:=2 to n do T:=T+i;
writeln('tich',T);
readln;
end.
bài 6:
program ct;
uses crt;
var s,i,n:integer;
begin
Q:=1;
for i:=2 to n do Q:=Q+i;
writeln('tich',Q);
readln;
end.
Bài 2 :
Program Bt2;
Var i, S, n : integer;
Begin
Clrscr;
S := 0;
Write ( ' nhap n = ' );
Readln ( n );
For i := 1 to n do S := S + 1;
Write ( ' Tong cua ', n , ' So tu nhien dau tien = ', S );
Readln;
End.
- Đề 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
