Các bạn giải giúp mình với ạ còn 2 tiếng nữa kt 1 tiết rồi 1) Viết chương trình của tập hợp số chẵn n 2) Cho A là số nguyên tố.Tìm n là số nguyên nhỏ nhất S=10+11+12+13...+n

1 câu trả lời

program bai1;

uses crt;

var i,l,t:integer;

  begin

    clrscr;

     write('Nhap l: ');        readln(l);

     t:=0;

     for i:=1 to l do

         t:=t+i;

     writeln('Tong cua ',l,' so tu nhien dau tien la: ',t);

     readln

   end.

2/type kmang=array[1..50] of integer;