Tính tổng từ 1 đến n (bằng câu lệnh while do)
Tính tổng từ 1 đến n (bằng câu lệnh while do)
Program HOC24;
var n,i: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
i:=1; t:=0;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
write('Ket qua la: ',t);
readln
end.
sao chương trình chạy không được vậy ạ? các bạn giúp mình được không?
Sai chỗ
1) While VT < n do; (dư dấu chấm phẩy)
2) Chỗ VT:=VT + 1 (thiếu dấu chấm phẩy)
3) TB:=tong/n (thiếu dấu chấm phẩy)
tìm tất cả số có 4 chữ số(abcd) sao cho tổng các chữ số=20
Var a,b,c,d:integer;
Begin
Writeln('Cac so can tim la');
For a:=1 to 9 do
For b:=0 to 9 do
For c:=0 to 9 do
For d:=0 to 9 do
If a + b + c + d = 20 then
writeln(a,b,c,d);
readln;
End.
viết chương trình tìm số tự nhiên n lớn nhất để tổng 1+2+3+..n< 1000.<cần gấp SOS:((((>
Var s,i:integer;
Begin
s:=0;
i:=0;
While S<1000 do
Begin
i:=i+1;
s:=s+i;
End;
Write('n la ',i);
Readln;
End.
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
" Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn."
Viết chương trình tính số chân gà, chân chó (dùng câu cú pháp While do)
Viết chương trình nhập vào m (n>0) in ra màn hình các ước của n
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
Viết chương trình cho phép tính tổng của nhiều số (Chưa biết bao nhiêu số). Nhập số 0 để kết thúc quá trình nhập.(dùng câu lệnh while.... do để viết)
var n: integer;
t: longint;
Begin
write('Nhap n: '); readln(n);
t:=n;
while n<>0 do
begin
write('Nhap n: '); readln(n);
t:=t+n;
end;
write('Ket qua la: ',t);
readln
end.
Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập).(dùng câu lệnh while...do để viết chương trình)
Uses crt;
Var n,i: integer;
Begin
Clrscr;
i:=1;
Write('nhap n');
Readln(n);
While i<n do
Begin
If (i mod 2<>0) then write(i:5);
End;
Readln
End.
Mời bạn thử chạy chương trình ra nhé ! Chúc học tốt!!
Viet chuong trinh pascal nhap so tu nhien n tu ban phim. Xuat ra man hinh:
+ Cac so nguyen to tu 2->n
+ So luong cac so nguyen to tu 2-> n
+ Tong cac so nguyen to tu 2->n
+ Xet tong do co phai la so chinh phuong khong?
uses crt;
var n,dem,i,t,j,kt:integer;
begin
clrscr;
readln(n);
dem:=0;
t:=0;
for i:=2 to n do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then begin t:=t+i; dem:=dem+1; write(i:4); end;
end;
writeln;
writeln(dem);
writeln(t);
if (trunc(sqrt(t))=sqrt(t)) then writeln(t,' la so chinh phuong')
else writeln(t,' khong la so chinh phuong');
readln;
end.