Bài 1 : Viết chương trình tính tổng 1000 số nguyên đầu tiên bắt đầu từ 1 không dùng công thức. Bài 2: Viết chương trình tính tổng 1000 số nguyên chẵn đầu tiên bắt đầu từ 1 không dùng công thức. Bài 3: Viết chương trình nhập vào số tự nhiên N, xét xem số đó có phải là số nguyên tố

Sophia

2 năm trước

Bài 1 : Viết chương trình tính tổng 1000 số nguyên đầu tiên bắt đầu từ 1 không dùng công thức. Bài 2: Viết chương trình tính tổng 1000 số nguyên chẵn đầu tiên bắt đầu từ 1 không dùng công thức. Bài 3: Viết chương trình nhập vào số tự nhiên N, xét xem số đó có phải là số nguyên tố hay không.

Loga Sinh Học lớp 12

0 lượt thích 99 xem

1 trả lời

Thích Trả lời

longle13012001

program oken;

var tong,i:integer;

begin

for i:=1 to 1000 do tong:=tong+i;

writeln('tong 1000 so dau tien: ',tong);

end.

program oken;

var tong,i:integer;

begin

for i:=1 to 1000 do if i mod 2=0 then tong:=tong+i;

writeln('tong 1000 so dau tien: ',tong);

end.

program oken31;

uses crt;
var n,i,dem,chan,le,dem2: integer;
kt:boolean;
begin
clrscr;
repeat

write('nhap so: '); readln(n);
if n mod 2=0 then
chan:=chan+n
else
begin
dem2:=dem2+1;
le:=le+n;
end;
for i:=2 to (n div 2) do
if n mod i =0 then dem :=dem+1;
if dem=0 then kt:=true;
if (n=0) or (n=1) or (dem>0) then kt:=false;
until kt=true;
writeln('tong cac so chan: ',chan);
writeln('trung binh cong cac so le: ',le/dem2:0:0);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Giúp mik với mik đang cần gấp cảm ơn mấy bạn nhìu

Trong kho có hai loại bao gạo, loại nhỏ nặng 75kg, loại to nặng 225kg. Nếu chở toàn loại nhỏ thì một xe tải chở được nhiều nhất 213 bao. Hỏi nếu chở toàn loại to thì xe tải như thế chở được nhiều nhất bao nhiêu bao? chỉ cần đáp án thôi

Cho 8,1g ankin tác dụng với AgNO3 dư trong NH3 thì thu được 24,15 gam kết tủa. CTPT của ankin đó là

London is ____________ city in the world [ the word is the superlative]

help me hứa cho 5*+cảm ơn nhanh nhé đang cần gấp

Tìm m để hệ phương trình có nghiệm 3x-2m < 6x+11 và -5x +4m-7 lớn hơn hoặc bằng 0

Có một ng bạn từ thành phố lớn về quê chơi, bạn ấy chưa biết gì về việc gặt lúa, hãy thuyết minh về mùa gặt quê mình cho bạn ấy nhé! ( Viết đoạn văn thuyết minh ) Có ai có thể gợi ý cho mình 1 ít gì được không ạ :(( Nếu được thì giúp mình lập dàn ý ạ :(( mình bí quá mọi người ơi :((

Nhân xét về cách dien dat trong văn ban trích lời ngỏ ve đẹp trong ca dao cua Nguyen Duc quyền

một cửa hàng trong kho có 4628m vải ngày thứ nhất nhập 1547m vải ngày thứ 2 nhập 2037m vải , hỏi sau 2 ngày trong kho có bao nhiêu m vải

Giúp mik vs ạ Tính 1 3/5:8/27×5/3

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến