Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
bn là cung nào?
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.
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.
Các bạn giúp mình với 
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ì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é.
Viết chương trình kiểm tra số nguyên n có chia hết cho
3 ko?
viết chương trình kiểm tra số nguyên n là chẵn hay lẻ(âm hay dương)
viết chương trình nhập vào 3 sô nguyên
a) kiểm tra xem đó có là độ dài 3 cạnh của 1 tam giác
b)...............................(như trên) 3 canh của 1 tam giác vuông cân
c)như trên 3 cạnh của 1 tam giác cân
mn giúp với , mk cần gấp lắm