1. Nhập vào số nguyên n từ bàn phím. Tính n! rồi hiển thị kết quả ra màn hình với 0!=1; 1!=1; 2!....
2. Nhập vào 3 số nguyên a,b,c bất kì. Kiểm tra 3 số nguyên đó có là 3 cạnh của một tam giác vuông hay không?
1. Nhập vào số nguyên n từ bàn phím. Tính n! rồi hiển thị kết quả ra màn hình với 0!=1; 1!=1; 2!....
2. Nhập vào 3 số nguyên a,b,c bất kì. Kiểm tra 3 số nguyên đó có là 3 cạnh của một tam giác vuông hay không?
1.uses crt;
var n,gt:longint;
begin
clrscr;
repeat
write('nhap so n:');readln(n);
until n>0;
gt:=1;
while n>0 do
begin
gt:=gt*n;
n:=n-1;
end;
writeln('giai thua cua n la:',gt);
readln
end.
2. uses crt;
var a,b,c:real;
begin
clrscr;
write('nhap a=');readln(a);
write('nhap b=');readln(b);
write('nhap c=');readln(c);
if (a*a=b*b+c*c) or (b*=c*c+a*a) or (c*c=a*a+b*b) then writeln('khong phai la tam giac vuong');
readln
end.
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
a)
uses crt;
VAR
n, d, i: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
d : = 1;
For i: = 1 to n do
d: = d*i;
Writeln ('d=',d);
Readln;
END.
c)
uses crt;
VAR
n, i, demuoc: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
demuoc: = 0;
For i: = 1 to n do
If n mod i = 0 then
demuoc : = demuoc + 1;
If demuoc = 2 then
Writeln ('n la so nguyen to')
ELSE
Writeln ('n khong phai la so nguyen to');
Readln ;
END.
Còn phần b bạn tự nghĩ nha!
Chúc bạn học tốt!
giải thích cho em sự khác nhau giữa for i:=1 to n-1 do và for i:=1 to n do. (Mới học nên ko rõ, các bác đừng gạch đá j nha!)
giả sử ta có mảng a gồm n=5 phần tử:
a1, a2, a3, a4 và a5
for i:=1 to n-1 do nghĩa là vòng lặp chỉ chạy tới vị trí 4 (n-1=5-1=4)
còn for i:=1 to n do nghĩa là vòng lặp chạy tới vị trí 5 (n=5)
Nhập từ bàn phím số nguyên dương N (0<N<=2*\(^{10^9}\)).Tính và đưa ra màn hình tổng bình phương các chữ số của N.
Các bạn ơi câu hỏi trên là 2 nhân với 10 mũ 9 nhá ! Mình cần đáp án trước 8h sáng ngày mai !
uses crt;
var n,d,i,t,x,y:integer;
st:string;
begin
clrscr;
write('n='); readln(n);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+sqr(x);
end;
writeln('tong binh phuong cac chu so cua ',n,' la: ', t);
readln;
end.
Viết chương trình nhập n từ bàn phím , tính và xuất ra màn hình tích x= 1.2.3.4.5......n
Proagram bai1;
uses crt;
var n,i: integer;
x: real;
begin
clrscr;
write('nhap so n ='); readln(n);
x:=0;
for i:= 1 to n do
x:=x+i;
writeln('tong =' , x); readln
end.
program bt;
uses crt;
var n,i,x:integer;
begin
clrscr;
write('nhap n:');readln(n);
while (n<=0) do
begin
write('nhap lai n:');readln(n);
end;
x:=1;
for i:=1 to n do
x:=x*i;
write('x=',x);
readln;
end.
chúc bạn học tốt!
nhập vào 3 số nguyên từ bàn phím sau đó dưa ra màn hình. tổng 3 số này có chia hết cho 3 hoặc chia hết cho 5 hay không
Program bai1;
uses crt;
var a,b,c: integer;
s: longint;
begin
clrscr;
write('nhap so nguyen 1 = '); readln(a);
write('nhap so nguyen 2 = '); readln(b);
write('nhap so nguyen 3 = '); readln(c);
s:=a+b+c;
if (s mod 3 = 0 ) and (s mod 5 = 0 ) then
writeln('tong 3 chu so a b c chia het cho 3 va 5') else
writeln('tong 3 chu so a b c khong chia het cho 3 va 5');
readln;
end.
program baitap;
uses crt;
var a,c,b,s:integer;
begin
clrscr;
write('nhap so thu nhat: ');
readln(a);
write('nhap so thu hai: ');
readln(b);
write('nhap so thu ba: ');
readln(c);
write(a:4,b:4,c:4);{xuat ra 3 so vua nhap}
writeln;
S:= a+b+c;
if S mod 5=0 then
writeln('tong ba so chia het cho 5')
else if S mod 3 = 0 then
writeln('tong ba so chia het cho 3');
readln;
end.
Viết chương trình in ra màn hình dãy số Phibonacci gồm n số( n nhập từ bàn phím) biết:
Dãy Phibonacci là dãy số mà mỗi số = tổng của 2 số đứng trước nó.2 số đầu tiên của dãy là 1 và 1.
VD:1,1,2,3,5,8,...
program fibonacci;
uses crt;
var a:array[0..1000] of integer;
i,n: integer;
begin
clrscr;
a[0] :=0;a[1]=1;
for i:= 2 to n do
a[i]=a[i-1]+a[i-2];
writeln('so hang thu ',n,' cua day la: ',a[n]);
end.
nhập vào từ bàn phím 3 số nguyên dương sau đó lập trình bằng pascal rồi đưa ra thông báo 3 số nguyên dương này là 3 cạnh của tam giác vuông
nhập vào từ bàn phím số n=50 và dãy Ai (A1,A2,...........,An) sau đó đưa ra màn hình tổng các số chia hết cho 2 hoặc 3 trong dãy
1.
Program bai1;
uses crt;
var a,b,c: integer;
begin
clrscr;
write('nhap canh a ='); readln(a);
write('nhap canh b ='); readln(b);
write('nhap canh c ='); readln(c);
if (a+b<c) or (b+c<a) and (c+a <b) then
writeln('khong phai la 3 canh cua tam giac ') else
writeln('la 3 canh cua tam giac ');
readln;
end.
2.
program bai2;
uses crt;
var a: array [1..100] of integer;
i,n: integer;
tong: real;
begin
clrscr;
write('nhap n ='); readln(n);
for i := 1 to n do
begin
write('nhap a[',i,'] = '); readln(a[i]);
end;
tong:=0;
for i:= 1 to n do
if (a[i] mod 2 = 0 ) or ( a[i] mod 3 = 0) then
tong:=tong+a[i];
write('tong cac so chia het cho 2 hoac 3 = ' ,tong :4:2);
readln;
end.
1/Nhập Vào số nguyên dương N<=100 và dãy số từ A1 ---> An từ bàn phím sau đó lập trình đưa ra màn hình số các số trong dãy có giá trị lớn hơn 10 mọi người giúp em với
2/nhập vào xâu S1 vào bàn phím sau đó tạo xâu S2 gồm tất cả a & b từ xâu S1 gồm tất cả các kí tự1/write('So so can nhap: ');
readln(n);
{******Nhap mang a gom cac so nguyen duong < 1000********}
for i:=1 to n do
begin
write('Nhap so thu ', i);
readln(a[i]);
while a[i] > 1001 do
(chỗ này đề bài hơi khó hiểu, nếu nguyên dương thì cần gì trị tuyệt đối, nhưng nếu cả số nguyên âm nữa thì bạn phải dùng đk abs(a[i])>1001)
begin
write('Ban phai nhap lai so nho hon 1001: ');
readln(a[i]);
end;
end;
kt:=true;
{******* In mang cac so da nhap*******}
for i:=1 to n do
begin
write(a[i]: 6);
if i mod 8=0 then writeln;
end;
{***** Kiem tra day co phai la cap so cong ko"*****}
for i:=1 to n-2 do
if a[i]+a[i+2]<> 2* a[i+1] then kt:= false;
if kt then write('Day la cap so cong')
else writeln('Day ko la cap so cong');
readln;
END.
program bai1;
var a:array[1..100] of longint;
i,n:longint;
begin
wrtie('N= ');readln(n);
for i:=1 to n do
begin
write('A[',i,']= ');
readln(a[i]);
end;
write('Cac phan tu trong day lon hoc 10 la ');
for i:=1 to n do
if a[i]>10 then write(a[i],' ');
readln
end.
Viết 1 chương trình nhập vào 2 số nguyên dương x, y(x<y)
_Đếm số các số chẵn và lớn hơn 100
_Tính tổng số lẻ hoặc chia hết cho 5 trong khoảng từ x đến y(làm bằng 2 cách for do và while do)