Tin học Viết chương trình

[Dollee's Pii's]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1 . Viết chương trình tìm số có ba chữ số abc thỏa abc = a^3 +b^4+c^3. với a,b,c được nhập từ bàn phím
2. viết chương trình nhập vài một số nguyên dương bé hơn 362880. Kiểm tra số đó có phải số nguyên tố không?
3. Viết chương trình nhập vào 3 số a,b,c đưa ra màn hình số Max.

 

[Deathheart]

1 . Viết chương trình tìm số có ba chữ số abc thỏa abc = a^3 +b^4+c^3. với a,b,c được nhập từ bàn phím
2. viết chương trình nhập vài một số nguyên dương bé hơn 362880. Kiểm tra số đó có phải số nguyên tố không?
3. Viết chương trình nhập vào 3 số a,b,c đưa ra màn hình số Max.

1) var a,b,c:integer;
begin
write('nhap a,b,c '); readln(a,b,c);
S:=a*a*a+b*b*b*b+c*c*c;
write('so abc la ', S);
readln;
readln;
end.
chú thích: đó là tìm số bằng a^3+b^4+c^3 còn tìm abc thì a,b,c k nhập từ bàn phím (theo cách khác a hay chị gì đó ạ)
2) var n,k,i,d:integer;
begin
repeat
write('nhap so '); readln(n);
until n<362880;
k:=trunc(sqrt(n));
d:=0;
for i:=1 to k do
if n mod i = 0 then d:=d+1;
if d=0 then write('so do la so nguyen to')
else write('so do khong phai la so nguyen to');
readln;
readln;
end.
3)var a,b,c,max:integer;
begin
write('nhap 3 so a,b,c: '); readln(a,b,c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
write('so lon nhat trong 3 so la ',max);
readln;
readln;
end.