Viết phương trình in ra các số nguyên tố nhỏ hơn hoặc bằng N, với N nhập từ bàn phím ? Giúp mình với ạ, mình cảm ơn 🥰🥰
2 câu trả lời
uses crt;
var i,n,j,kt:longint;
begin
clrscr;
write('nhap n:');readln(n);
for i:=2 to n do
begin
kt:=1;
for j:=2 to i-1 do if(i mod j=0)then kt:=0;
if(kt=1)then write(i,' ');
end;
readln
end.
Program In_So_Le;
Uses crt;
var S,i,n: integer;
Begin
Clrscr;
Write(‘Nhap so n =’); readln(n);
S:= 0;
For i:=1 to n do if i mod 2 =1 then S:= S+i;
Writeln(‘Tong cac so le nho hon ‘,n,’ la: ‘,S);
readln
end.
