like mạnh cho bạn

xử nữ

SONG NGƯ

b1: Nhập n.

b2:Nếu n chia hết cho 1 và n chia hết cho n thì n là số nguyên tố, ngược lại n không phải là số nguyên tố.

b3: Thông báo kết quả và kết thúc thuật toán.

n chia hết cho 1 và n chia hết cho n chưa chắc n là số ngtố bạn

program tong_chan;
uses crt;
var N,dem:integer;
Tong:longint;
BEGIN
Clrscr;
writeln('Nhap so nguyen N =');
readln(N);
Tong := 0;
dem := 0;
while dem < N do
begin
Tong := Tong + dem*2;
dem := dem + 1;
end;
write('Tong', N, 'so tu nhien chan dau tien la: ',Tong);
readln;
END.

chỗ while dem<N phải ghi là :

while dem<=N mới đúng

không phải cách tối ưu không thì hông biết nhưng mà ra đáp án :)) là được nhỉ

Trường mình thi rồi nhưng đề dễ lắm, không khó như câu này đâu .

program tong;

var s,i : integer;

begin

i:=0; s:=0;

while S < 100 do

begin 

   S:=s+i;

   i:=i+1;

end;

writeln('Tong nho nhat lon hon 100 la: ',s);

writeln('So lan lap la: ',i);

readln

end.  

Mơn nhea...

pascal hả bn??

mình thấy ở trang 71 SGK có bài tương tự

program Tinh_trung_binh_cong;

uses crt;

var n, dem : integer;

a, TB : real;

begin clrscr;

dem:= 0; TB:=0;

write('Nhap so cac so can tinh n = '); realn(n);

write dem < n do

begin dem:= dem + 1;

write('Nhap so thu ', dem,' = '); realn(a);

TB:= TB + a;

end;

TB:= TB/n;

writeln('Trung binh cua ', n, ' so la = ', TB:10:3);

writeln('Nhan Enter de thoat ...');

readln;

end.

uses crt;
var i:longint;

{-----------------------------------------------------------}
function kt(x:longint):boolean;
var st,s:string;
i,a,b,o:longint;
begin
str(x,st);
s:='';
for i:=1 to length(st) do
begin
if i=4 then begin
val(s,a,o);
s:='';
end;
s:=s+st[i];
val(s,b,o);
end;
if b-a=4 then kt:=true
else kt:=false;
end;

{-----------------------------------------------------------}
begin
clrscr;
for i:=100000 to 999999 do
if (i=sqr(round(sqrt(i)))) and (kt(i)) then
writeln(i);
readln;
end.

góp ý tý nhé:

chỗ khai báo biến o phải là integer thì mới chạy được nhé

program P;

var x, y, P: integer;

begin

writeln('nhap x va y = ');

readln(x,y);

P:=x*x+y*y+x*y;

writeln('gia tri bieu thuc = ',P);

readln

end.

Bạn thử chạy chương trình xem có được ko rồi nói lại cho mình nhé.

Mik

ko biết