viết chương trình pascal tìm số có 3 chữ số sao cho abc = a^3 + b^3 + c^3
giúp mình với !
viết chương trình tìm tất cả số có 3 chữ số sao cho tổng các chữ số bằng tích của chúng.Làm pascal
uses crt;
var a,b,c:integer;
begin
clrscr;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if (a+b+c=a*b*c) then writeln(a,b,c,' ');
readln;
end.
Tổng 3 chữ số của số bé nhất có 3 chữ số có tích 3 chữ số bằng 3 là ?
Câu 1: Viết chương trình tìm các số có 3 chữ số sao cho số đó bằng n lần tổng các chữ số của nó
Help me :(((( Bằng pascal nhé và nếu có fuction thì ko dùng nhé :))
Ngoài lề tí!!
Ai viết phương trình pascal giúp em voi :((
Viết chương trình pascal
a) Nhập N nguên dương là số phần tử của dãy
b) giá trị ngẫu nhiên cho dãy, mỗi phần tử có /m[i]/ ≤ 1000
c) in dãy ban đầu ra
d) In các số chia hết cho 3 của dãy
a)nguyên tử theo hàm độ x y là nguyên tử y
b)giá trị là o,87645
c)784736
d)878,985,354,894,9045
chị học lớp 9 rồi nên hiểu mà,chị đc 10 bài này đó,tin chị đi
Viết chương trình pascal in ra 3 dòng với số nguyên dương n (n ≤15000):
Dòng 1: n có chia hết cho 4 không
Dòng 2: n có mấy chữ số
Dòng 3: số ngược của n
Ví dụ:
n là 15
Dòng 1: n không chia hết cho 4
Dòng 2: n có 2 chữ số
Dòng 3: số ngược của n là 51
uses crt;
var n,i:integer;
st:string;
begin
clrscr;
readln(n);
if n mod 4=0 then writeln('n chia het cho 4')
else writeln('n khong chia het cho 4');
str(n,st);
writeln(length(st));
for i:=length(st) downto 1 do write(st[i]);
readln;
end.
1. Viết chương trình Pascal tính tổng các số chia hết cho 3 từ 1 đến 100 Kết quả tổng này là số chẵn hay lẻ? 2. Viết chương trình Pascal nhập vào 1 mảng số nguyên A gồm có N số (N< 100). Có bao nhiêu số chẵn trong mảng A.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
Cho 3 chữ số a , b , c sao cho 0 < a < b < c
a ) Viết tập hợp A các số tự nhiên có 3 chữ số gồm cả 3 chữ số a , b , c .
b ) Biết tổng 2 số nhỏ nhất trong tập hợp A bằng 488 . Tìm 3 chữ số a , b , c .
Mọi người ơi giúp mình với !!!
Sử dụng turbo pascal
Tìm số lớn nhất của 4 số nguyên dương a; b; c;d
1.Đưa ra input và output cho bài toán.
2.Trình bày thuật toán tìm số lớn nhất của 4 số nguyên dương a;b;c;d.
3.Số lượng biến cần khai báo.
4. chạy chương trình và sửa lỗi nếu sai.
5. Nhập a=64 ; b=67000 ; c=78 ; d=35000
Chương trình có chạy được không nếu chạy được,tại sao?
Các anh chị em ơi giúp em với em sẽ tick cho thật nhiều.
bài tập :
1. a, viết cấu trúc khai báo biến ,hằng . cho ví dụ minh họa
b, so sánh biến và hằng
2. giải sử khai báo hằng pi có giá trị bằng 3.14 . có thể gán giá trị 3.1416 cho pi trong phần thân chương trình ko ? vì sao ?
b, trong pascal khai báo nào sau đây đúng ?
A . var tb : real ;
B , var 4bs : integer ;
C,, const x : real ;
D , var R = 30;
3 . viết chương trình pascal cho bài toán tính tổng của một số bằng 3 và số còn lại được nhập từ bàn phím
ai giúp dc mik tick nhé , giúp nhaaaaa!
Bài 1 :
- Giống nhau:
+Biến và hằng điều là đại lượng lưu trữ dữ liệu.
+Hai đại lượng này phải khai báo mới sử dụng được.
Khác nhau:
- Hằng: Giá trị của hằng không thể thay đổi trong quá trình thực hiện chương trình.
- Cách khai báo biến:
Var<tên biến>:<kiểu dữ liệu>;
VD: Var a,b:integer;
C:string;
-Biến: giá trị của biến có thể thay đổi trong quá trình thực hiện chương trình.
_ Cách khai báo hằng:
const <tên hằng>=<giá trị của hằng>;
VD: Const pi=3.14;
Bài2. Giả sử ta đã khai báo một hằng Pi với giá trị 3.14. Có thể gán lại giá trị 3.1416 cho Pi trong phần thân chương trình được không, tại sao?
Trả lời
Không thể gán được, vì một tên hằng không thể nhận một lúc hai giá trị.
Bài 3 .Trong Pascal, khai báo nào sau đây là đúng?
a. Var tb : real ;
b. Var 4hs: integer ;
c. Const x : real ;
d. Var R = 30 ;
Lời giải :
Đáp án đúng là đáp án a. Var tb : real ; vì cách khai báo biến: Var<tên biến>:<kiểu dữ liệu>;
Viết chương trình pascal tính tiền điện hàng tháng với đơn giá 1Kw = 2000 đ. Biết rằng chỉ số đầu và chỉ số cuối được nhập từ bàn phím
Nhanh nhanh giúp mình nha
3 bạn nhanh (và đúng nhất) mình ti.ck cho