uses crt;
var x:integer;
begin
clrscr;
write('nhap so nguyen x:');readln(x);
write('binh phuong cua x la:',sqr(x));
readln;
end.
chúc bạn học tốt![]()
uses crt;
var x:integer;
begin
clrscr;
write('nhap so nguyen x:');readln(x);
write('binh phuong cua x la:',sqr(x));
readln;
end.
chúc bạn học tốt![]()
Viết chương trình nhập vào 1 mảng số nguyên. In ra màn hình giá trị trung bình của mảng đó và các phân tử lớn hơn giá trị trung bình của mảng đó.
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
1. Viết chương trình nhập vào một số nguyên dương n và in ra màn hình dãy số tự nhiên từ 1 tới n. 2. Viết chương trình nhập vào một số nguyên n và in ra màn hình các số nguyên chẵn trong khoảng từ 1 tới n.
Viết chương trình Pascal, đặt tên chương trình là tên của con sau đó tải file ảnh lên đây. Chương trình thực hiện công việc sau: Khai báo 1 mảng A chứa tối đa 50 số nguyên, nhập n từ bàn phím, nhập vào mảng A gồm n số, viết mảng A ra màn hình (tất cả các phần tử trên cùng 1 dòng?
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện
+ dòng 1 xuất ra màn hình dãy số vừa nhập
+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?
+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?
+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?
+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!
viết chương trình nhập vào số nguyên n.In ra n^2
Viết chương trình nhập 4 số nguyên a,b,c,d. Tính trung bình cộng của 4 số. In giá trị ra màn hình