Lập trình pascal
Không dùng hàm,
Nhập từ bàn phím 2 số nguyên A, B.
Tìm và in ra màn hình các số trong khoảng từ A đến B.
Tính tổng các số nguyên tố vừa tìm được
Biết số nguyên tố là các số có ước bằng 1 và chính nó
program bai_giai; uses crt; var a,b,i,j,t,d:integer; begin clrscr; readln(a,b); for i:=a to b do begin write(i,' '); d:=0; for j:=1 to i do if i mod j=0 then d:=d+1; if d=2 then t:=t+i; end; writeln; writeln('Tong cac so nguyen to: ',t); readln; end.
uses crt; var a,b,i,j,s:longint; begin clrscr; read(a,b);readln; for i:=a to b do begin write(i,' '); j:=2; while i mod j<>0 do inc(j); if j=i then inc(s,i); end; writeln; write(s); readln end.