Phần mềm học tập

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phạm Tèo

Viết trương trình Pescal, tính tổng các số nguyên tố nằm trong khoảng từ X đến Y rồi in ra màn hình .Với X,Y là các số tự nhiên được nhập từ bàn phím ra 2<x<y

Nguyễn Hoàng Duy
22 tháng 3 2023 lúc 22:30

program TinhTongSoNguyenTo;
var
  X, Y, i, j, dem, tong: integer;
begin
  write('Nhap X: ');
  readln(X);
  write('Nhap Y: ');
  readln(Y);
  tong := 0;
  for i := X to Y do
  begin
    dem := 0;
    for j := 2 to i div 2 do
      if i mod j = 0 then
      begin
        dem := dem + 1;
        break;
      end;
    if dem = 0 then
      tong := tong + i;
  end;
  writeln('Tong cac so nguyen to tu ', X, ' den ', Y, ' la: ', tong);
  readln;
end.

 


Các câu hỏi tương tự
Nguyen Tan Dat
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Nguyễn Phúc
Xem chi tiết
Phạm An Khánh
Xem chi tiết
Đặng Minh Hiếu
Xem chi tiết
Phan Tấn Tài
Xem chi tiết
sery Lan
Xem chi tiết
Linh Da
Xem chi tiết
Đặng Nguyệt
Xem chi tiết