Bài 1: viết chương trình pascal nhập n số nguyên từ bàn phím -Dòng 1:Xuất các số n vừa nhập -Dòng 2:Tính tổng các số vừa nhập và xét tổng đó có phải là số nguyên tố không. Bài 2:viết chương trình pascal nhập các số từ bàn phím và kết thúc nhập khi nhập số 0 -Dòng 1:Xuất các số vừa nhập -Dòng 2:Tính tổng các số vừa nhập và xét tổng đó có phải là sống hoàn toàn không. Ai làm giúp mình mình cũng vote 5 sao nha. Mình đang cần gấp mong mọi người giúp.HELPP MEE
1 câu trả lời
Bài 1:
program Tin_hoc;
uses crt;
var i,n,k,t:integer;
a: array [1..1000] of integer;
begin
clrscr;
write('Nhap n: ');readln(n);
t:=0;
for i := 1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
t:=t+a[i]
end;
k:=0;
for i:= 1 to n do write(a[i],' ');writeln;
for i := 2 to t - 1 do if t mod i = 0 then k:=k+1;
if k=0 then writeln(t,' la so nguyen to') else writeln(t,' khong phai la so nguyen to');
readln;
end.
Còn ý 2 câu 2 là j mik không hiểu
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
