K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

13 tháng 3 2023

Program HOC24;

var i,n,t: integer;

begin

t:=0; i:=1;

while t<=500 do

begin

t:=t+i;

i:=i+1;

end;

write('Ket qua la: ',t);

readln

end.

Câu 7: – Cú pháp câu lệnh lặp với số lần biết trước (for):

for biến := giá_trị_đầu to|downto giá_trị_cuối do câu_lệnh;

while điều_kiện do câu_lệnh;

Câu 8: Viết chương trình tính tổng N số tự nhiên đầu tiên

program TongNso; var N, i, Tong: integer; begin write('Nhap N: '); readln(N); Tong := 0; for i := 1 to N do Tong := Tong + i; writeln('Tong ', N, ' so tu nhien dau tien la: ', Tong); end.

Câu 9: Sử dụng lệnh lặp While..do để tính trung bình n số thực

program TinhTrungBinh; var n, i: integer; x, Tong: real; begin write('Nhap so luong n: '); readln(n); i := 1; Tong := 0; while i <= n do begin write('Nhap so thu ', i, ': '); readln(x); Tong := Tong + x; i := i + 1; end; writeln('Trung binh la: ', Tong / n:0:2); end.


4 tháng 4 2023

program Tinh_Tong;

var n, s, i: integer;

begin
  write('Nhap vao so nguyen duong n: ');
  readln(n);
  s := 0;
  i := 1;
  while i <= n do
  begin
    s := s + i;
    i := i + 1;
  end;
  writeln('Tong cua ', n, ' so tu nhien dau tien la: ', s);
  end.

29 tháng 4 2022

Var i,s:integer;

Begin

i:=0;

While s<=1000 do

Begin

i:=i+1;

s:=s+i;

End;

Write('n nho nhat la ',i);

Readln;

End.

7 tháng 2 2022

var i,n:integer;

s:real;

begin

write('Nhap n = ');readln(n);

for i:=1 to n do

s:=s+1/(3*i+2);

write('Tong la ',s:10:2);

readln;

end.

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

i:=1;

while i<=n do 

  begin

s:=s*i;

i:=i+1;

end;

writeln(s:0:0);

readln;

end.

28 tháng 2 2023

S=S+i mà

 

1 tháng 3 2021

Program HOC24;

var i,n,t: integer;

begin

n:=1; t:=0;

while t<=500 do

begin

t:=t+n;

n:=n+1;

end;

writeln('Tong la: ',t);

write('So N nho nhat de tong lon hon 500 la: ',n);

readln

end.

*Cách khác: Dùng Repeat Until

uses crt;

var n,t:integer;

begin

clrscr;

t:=0;

n:=0;

repeat

   n:=n+1;

t:=t+n;

until t>500;

writeln(t);

writeln(n);

readln;

end.