Bài 7. Câu lênh lặp

program nt;

uses crt;

var n,i:word;

function ktsnt(n:word):boolean;

var j,dem:byte;

kt:boolean;

begin

dem:=0;

for j:=1 to n do

if n mod j=0 then dem:=dem+1;

if dem=2 then kt:=true else kt:=false;

ktsnt:=kt;

end;

begin

clrscr;

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

i:=n-1;

while ktsnt(i)=false do dec(i);

write('so nguyen to lon nhat be hon N la:',i);

readln;

end.

chúc bạn học tốt!!

var n,j: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:=n;

repeat

j:=j-1;

until ktsnt(j);

write(j);

readln;

end.

Đây mới đúng :))

program bai1;

uses crt;

var i,n : integer;

s: real;

begin

clrscr;

s:=0;

for i:= 1 to 99 do

s:=s+i;

writeln('tong =' ,s);

readln

end.

tham khảo nè: viết chương trình pascal tính tổng S=1+2+3+...+N? | Yahoo Hỏi & Đáp

bạn có cách giải chi tiết ko?

program bai1;

uses crt;

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

n,i,j,k,dem:integer;

kt:boolean;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

begin

kt:=true;

for j:=1 to i-1 do if a[i]=a[j] then kt:=false;

if kt then

begin

dem:=0;
for k:=1 to n do
if a[i]=a[k] then inc(dem);
writeln(a[i],' xuat hien ',dem,' lan');
end;
end;
readln;
end.

program sohoanhao;

uses crt;

var n,i,S:longint;

begin

writeln('Nhap so nguyen co ba chu so');read(n);

S:=0

for i:=1 to n div 2 do

if n mod i=0 then S:=S+i;

if S=n then write(n,' la so hoan hao')

else write(n,' khong phai so hoan hao');

readln

end.

cho biến i chạy từ 1 đếm 1000

Program bai1;

uses crt;

var n,i,s: integer;

begin

clrscr;

write('nhap so n =');

readln(n);

s:=0;

for i:= 2 to n-1 do

if i mod 2 = 0 then s:=s+i;

writeln ('tong cac so chan nho hon n =' ,s :4);

readln;

end.

câu 1:

Program So_hoan_hao;
uses crt;
Var S, n, i,j: integer;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do
if i mod j = 0 then
S:=S+j;
if S = 2*i then
write(,' la so hoan chinh');
end;
readln;
end.

*Số kg nhập từ bàn phím nha

mình không biết đâu làm bừa thôi

var n:integer;

function ktsht(a:integer):boolean;

var i:integer;

t:real;

begin

t:=0;

for i:=1 to a-1 do

if a mod i=0 then t:=t+i;

if t=a then ktsht:=true

else ktsht:=false;

end;

begin

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

if ktsht(n) then write(n,' la so hoan thien ')

else write(n,' khong phai so hoan thien ');

readln;

end.

program nts;
uses crt;
var a,b,i,s,dem:longint;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a<b then
begin
for i:=a to b do
if sqr(round(sqrt(i)))=i then
begin
write(i,' ');
s:=s+i; dem:=dem+1;
end;
writeln;
writeln('tong=',s);
write('trung binh=',s/dem:3:2);
end;
readln;
end.

Var t16,17,t21:Integer;

Begin

For t16:=0 to 11 do

For t17:=0 to 10 do

For 121:=0 to 8 do

If t16*1+t18*18+t21*21=185 then

Writeln(t16:5,t17:8,t21:10);

Readln;

End.

program bai1;

var l16,l17,l21:longint;

begin

l16:=0;l17:=0;l21:=0;

while (l16*16+l17*17+l21*21=185) do

begin

l16:=l16+1;

l17:=l17+1;

l21:=l21+1;

end;

write('Tu viet');

radln

end.