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

0 bình luận về “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”

1. 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

   Bình luận