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

Tự luận:

Câu 1: Các câu lệnh của vòng lặp không có câu lệnh kết thúc điều kiện thì vòng lặp sẽ lặp vô hạn.

Câu 2: Máy thực hiện 5 vòng lặp:

Vòng lặp 1: M=2

Vòng lặp 2: M=4

Vòng lặp 3: M=6

Vòng lặp 5: M=8

Vòng lặp 5: M=10

Câu 3:

program tỉntong;

uses crt;

var s :real; i, n : integer;

begin

clrscr;

write('So thu n la: '); readln(n);

S:=0; i:=1;

while i<= n do begin

S:=S+1/i; i:= i+1; end;

writeln('Tong cac so do la: ',S:2:3);

readln

end.

Ko hiểu chỗ nào thì bạn hỏi nhé!

Trắc nghiệm nè bạn!

Câu 1: C
Câu 2: D
Câu 3: A

Câu 4: B

Câu 5: D

Câu 6: C

4. program bai_4;

ues crt;

var

s,n,i:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

if i (mod 2=0) then s:=s+1;

write('tong la:',s:7);

readln;

end.

5.program bai_5;

uses crt;

var

i,s,n:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do s:=s+1;

writer('tong la:',s);

readln;

end.

8.program bai_8;

uses crt;

var

A:=array[1..100]of integer;

i,n,max:integer;

begin

clrscr;

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

for i:= 1 to n do

begin

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

end;

for i:= 1 to n do write(A[i],' ');

max:=a[1];

for i:= 1 to n do

if a[i] mod> max then:=a[i];

write('gia tri lon nhat trong mang la:',max);

readln;

end.

6.

var S,i:integer;

begin

S:=0;

i:=0;

while s<=1000 do

begin

i:=i+1;

s:=s*i;

end;

write(; so i nho nhat de tich >1000 la ', n);

write('tich dau tien >1000 la', s);

end.

2:

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t1,t2;

int main()

{

cin>>n;

t1=0;

t2=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x<0) t1=t1+x;

t2=t2+x*x;

}

cout<<t1<<" "<<t2;

return 0;

}

program So_nguyen_to;

uses crt;
var i,dem,j:Integer;
begin clrscr;
writeln('Cac so nguyen to tu 2 den 100 la:');
for j:=2 to 100 do
begin
dem:=0;
for i:= 1 to j do if j mod i=0 then dem:=dem+1;
if dem=2 then write(j,' ');

end;
readln;
end.

var n,j,dem:integer;

function ktsnt(a:integer):boolean;

var i,d:integer;

begin

d:=0;

if i=1 then d:=1;

for i:=2 to a div 2 do

if a mod i=0 then d:=d+1;

if d=0 then ktsnt:=true

else ktsnt:=false;

end;

begin

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

j:=0;

dem:=0;

repeat

j:=j+1;

if ktsnt (j) then dem:=dem+1;

until dem=n;

write(' cac so nguyen to dau tien la ',);

readln;

end.

mik ko làm while do nha

uses crt;
var n,i,dem,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
writeln('so ban vua nhap la: ',n);
dem:=0;
t:=0;
for i:=1 to n-1 do
if n mod i=0 then begin
write(i:4);
dem:=dem+1;
t:=t+i;
end;
writeln;
writeln('so cac uoc cua ',n,' ko ke chinh no la: ',dem);
writeln;
writeln('tong cac uoc cua ',n,' khong ke chinh no la: ',t);
if t=n then write(n,' la so hoan hao')
else write(n,' khong phai la so hoan hao');
readln;
end.

var n, i: integer;

M: array[1..100] of real;

Begin

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

for i:=1 to n do

Begin

write('M[',i,']='); readln(M[i]);

end;

for i:= n downto 1 do write(m[i],’ ,’);

readln

end.

uses crt;

var n,d:integer;

st:string;

begin

clrscr;

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

str(n,st);

d:=length(st);

for i:=d downto 1 do

write(d[i]);

readln;

end.

uses crt;

var n:integer;

begin

clrscr;

write('Nhap so tu nhien N: '); readln(n);

while n div 10 > 0 do n:=n div 10;

write('Chu so dau tien cua so N la: ',n);

readln;

end.

uses crt;

var n:integer;

st:string;

begin

clrscr;

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

str(n,st);

write(st[1]);

readln;

end.

Uses crt;
var i,dem,j,n:Integer;
Begin
write('Nhap so nguyen n');ReadLn(n);
if n>0 Then
begin
WriteLn('Cac so nguyen to tu 2 den ',n,' la:');
for j:=2 to n Do
begin
dem:=0;
for i:= 1 to j do if j mod i=0 then dem:=dem+1;
if dem=2 then write(j,' ');
end;
end;
Readln
End.

đúng ko z?

uses crt;
var a:array[1..100]of integer;
i,n,x,dem,kt:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
if n<=0 then writeln('ban da nhap sai , yeu cau ban nhap lai');
until n>0;
if n=1 then a[1]:=2
else
begin
a[1]:=2;
x:=1;
dem:=1;
repeat
x:=x+2;
kt:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then kt:=1;
if kt=0 then begin
dem:=dem+1;
a[dem]:=x;
end;
until dem=n;
end;
writeln('so nguyen to thu ',n,' la: ',x);
readln;
end.

program bai1;

var i,n,k,m:longint;

function nto(a:longint):boolean;

var i,s:longint;

b:boolean;

begin

b:=false;s:=0;

for i:=1 to a do

if a mod i0 then s:=s+1;

if s=2 then b:=true;

nto:=b;

end;

begin

readln(n);

i:=0;k:=2;

while i<=n do

begin

if nto(k)=true then

begin

m:=k;

i:=i+1;

end;

k:=k+1;

end;

write(m);

readln

end.