Bài 8. Lặp với số lần chưa biết trước

Bài 1: 

uses crt;

var a:real;

i,n:integer;

begin

clrscr;

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

a:=0;

i:=1;

while i<=n do 

begin

a:=a+1/i;

i:=i+1;

end;

writeln(a:4:2);

readln;

end.

a) Vòng lặp For

uses crt;

var a,b,i,s,t:longint;

begin

clrscr;

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

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

t:=0;

s:=1;

for i:=a to b do 

  begin

t:=t+i;

s:=s*i;

end;

writeln('Tong la: ',t);

writeln('Tich la: ',s);

readln;

end.

program tim_tong_va_tich;

uses crt;

var n,i:integer;

tong,tich:longint;

a:array[1..100]of integer;

begin

write('nhap so n:');readln(n);

i:=1;tich:=1;tong:=0;

while i<=n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

tong:=tong+a[i];tich:=tich+a[i];

i:=i+1;

end;

writeln('tong cua cac so tren la:',tong);

writeln('tich cua cac so tren la:',tich);

readln;

end.

a) S=20

7A

8 Không có begin - end; để bao quát các câu lệnh ở lệnh lặp while do này thì đây là vòng lặp vô hạn bạn nhé. (Mình dịch không được đáp án B nên bạn dựa vào dữ liệu mình cho để khoanh đáp án chính xác nhé)

program tinhtong;

uses crt;

var i, n, s: integer;

begin clrscr;

Write('N so tu nhien dau tien la: ');

readln(n);

s:=0;

i:=1;

while i<=n do begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cac so la: ',s);

readln

end.

program tinhtong;

uses crt;

var i,n,t:longint;

a:array[1..100]of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do 

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

t:=0;i:=1;

repeat

t:=t+i;

i:=i+1;

until i=n;

writeln('tong cua ca so tren la:',t);

writeln('trung binh cua cac so tren la:',t/n);

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac so la: ',t);

writeln('Trung binh cong cac so la: ',t/n:4:2);

readln;

end.

Giúp mik với!!!!!! 😊😊😊

uses crt;

var n,s,i:integer;

begin

clrscr;

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

s:=0;

i:=0;

while i<n do 

  begin

i:=i+2;

s:=s+i;

end;

writeln(s);

readln;

end.

Câu 3: 

uses crt;

var a:array[1..60[of real;

i,n:integer;

begin

clrscr;

write('Nhap so ban:'); readln(n);

for i:=1 to n do 

  begin

write('Chieu cao cua ban thu ',i,' la: '); readln(a[i]);

end;

for i:=1 to n do 

  writeln('Ban thu ',i,' cao ',a[i],'m');

readln;

end.

uses crt;

var a:array[1..60[of real;

i,n:integer;

begin

clrscr;

write('Nhap so ban:'); readln(n);

for i:=1 to n do 

  begin

write('Chieu cao cua ban thu ',i,' la: '); readln(a[i]);

end;

for i:=1 to n do 

  writeln('Ban thu ',i,' cao ',a[i],'m');

readln;

end.

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=15 to 25 do 

  s:=s+i;

writeln(s);

readln;

end.