Type mang=array [1..20] of integer;
var a:mang; i,n:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then writeln(a[i])
else writeln(' khong in');
end.
Viết chương trình nhập từ bàn phím các phần tử của 1 dãy số.Độ dài N nhập từ bàn phím.Tính tổng các phần tử số chẵn vừa nhập và in ra màn hình. Giúp mik vs ạ mai mik thi r😭
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 !
Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập một số tự nhiên từ bàn phím và thông
báo ra màn hình kết quả số đã nhập là chẵn hay lẻ?
a, Viết chương trình pascal nhập vào một dãy số nguyên n từ bàn phím b, in dãy vừa nhập ra màn hình. c, đếm xem bao nhiêu số dương. d, in kết quả số dương ra màn hình.
Viết chương trình nhập từ bàn phím ba số a, b và c. In ra màn hình ba số đó.
Giúp mình với ạ.
Cho hai biến a,b, có kiểu dữ liệu số nguyên. Em hãy viết chương trình Pascal thực hiện các yêu cầu sau: a) Khai báo hai biến a,b. b) Nhập giá trị của hai biến a,b từ bàn phím. c) In kết quả tổng của a,b ra màn hình.
Em hãy viết chương trình tính tổng các số chẵn từ 1 đến N trong đó N là số được nhập từ bàn phím (N<=100)
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 !!