Program HOC24;
uses crt;
var s: longint;
i,n: integer;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s = s + i*i;
write('S = ',s);
readln
end.
Program HOC24;
uses crt;
var s: longint;
i,n: integer;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s = s + i*i;
write('S = ',s);
readln
end.
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 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 một số nguyên dương n. Tính và in ra màn hình tổng các số từ 1 đến n thỏa mãn điều kiện không chia hết cho 3. *
Viết chương trình nhập vào một số nguyên dương n. Tính và in ra màn hình tổng các số từ 1 đến n thỏa mãn điều kiện không chia hết cho 3
nhập N số bất kỳ : đếm các số lớn hon 10 và nhỏ hơn 20 và tính tổng của chúng.sau đó đưa ra màn hình trong turbo pascal
viết chương trình pascal nhập n thực hiện
dòng 1 xuất ra màn hình các chữ số của n
dòng 2 tổng các chữ số của n và xét xem tổng đó có phải là số nguyên tố không
dòng 3 các chữ số ở vị trí lẻ của n và tổng của chúng. Xét tổng đó có phải là số chính phương không
dòng 4 các chữ số ở vị trí chẵn của n 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 n và tổng của hai số đó
Giúp với !!
vt trương trình pascal nhập vào số a từ bàn phím sau đó in ra màn hình kết quả của phép tính sau a^3 +15