Program HOC24;
var P: integer;
i: byte;
begin
p:=0;
for i:=1 to 201 do if i mod 2=1 then p:=p+i;
write('P= ',p);
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ự
program Tinh_tong;
uses crt;
var i, n, s: integer;
begin clrscr;
writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');
write('Nhap so n: ');read(n); s:=0;
for i := 1 to n do s := s + i;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln;
readln;
end.
* Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp while
tính tổng:
lập chuong trinh nhap x và n
tính S=1+x+\(\dfrac{x^2}{2!}+\dfrac{x^3}{3!}+.....+\dfrac{x^n}{n!}\)
vt gium minh pt pascal tinh tong s=1+1/3+1/5+....+1/n
viet chuong trình tính tổng từ 0 đến 10
làm nhanh lên tớ đang cần gấp
viết chuong trình tính tổng các dãy số sau:
S=\(1+\frac{1}{2}+\frac{1}{3}+.....+\frac{1}{100}\)
Viết chương trinh tính tổng s= 1+3+5+7+…+99+100
python nha mn chứ trường mình k học pascal
sau khi thực hiện đoạn chương trình :
Pascal ?
Tong=0
For i =1 to 5 do ,tong =tong+i ;
writeln(' gia tri tong la tong= ,tong);
Sau khi thực hiện đoạn chương trình trên kết quả là( trình bày các bước làm)
giúp tớ với
1.cho đoạn ct sau: Tong:30; while tong10 do tong:tong-2;khi kết thúc vòng lặp giá trị của biến tổng là ao nhiêu2. khai báo biến mảng: Var A:array[1..10] of real;sử dụng câu lệnh For i:1 to 5 do readln(a[i]); để gán giá trị cho các phần tử trong biến mảng A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?
Đọc tiếp
1.cho đoạn ct sau:
Tong:=30; while tong>10 do tong:=tong-2;
khi kết thúc vòng lặp giá trị của biến tổng là ao nhiêu
2. khai báo biến mảng: Var A:array[1..10] of real;
sử dụng câu lệnh For i:=1 to 5 do readln(a[i]); để gán giá trị cho các phần tử trong biến mảng A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?
1.cho đoạn chương trình sau: tong:2; while tong10 do tong:tong+1;sau khi thực hiện xong đoạn chương trình, biến tổng có giá trị bao nhiêu2. cho biết giá trị của X sau khi thực hiện xong đoạn ctX:1; Y:2, For i:1 to 4 do X:X+Y;3. giả sử A có 5 phần tử và giá trị các phần tử là 1,3,7,8,4 . khi thực hiện câu lệnh sau T:0; For i:1 to 5 do T:T+A[i]; giá trị của biến T là bao nhiêu?
Đọc tiếp
1.cho đoạn chương trình sau:
tong:=2; while tong<10 do tong:=tong+1;
sau khi thực hiện xong đoạn chương trình, biến tổng có giá trị bao nhiêu
2. cho biết giá trị của X sau khi thực hiện xong đoạn ct
X:=1; Y:=2, For i:=1 to 4 do X:=X+Y;
3. giả sử A có 5 phần tử và giá trị các phần tử là 1,3,7,8,4 . khi thực hiện câu lệnh sau T:=0; For i:=1 to 5 do T:=T+A[i]; giá trị của biến T là bao nhiêu?