Bài 8. Lặp với số lần chưa biết trước

NN

[ Em hãy viết chương trình sử dụng vòng lặp While...do để tính các số chẵn trong phạm vi từ 1 đến N. Với N được nhập từ bàn phim. ]

giải giúp mik ik mn, cảm mơn nhìu

VH
20 tháng 3 2022 lúc 10:00

Tham khảo:

Program BTH;
uses crt;
var i,n,s:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        i:=1;
        While i<>n do
        Begin
                If i mod 2=0 then s:=s+i;
                i:=i+1;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.

Bình luận (0)
HH
20 tháng 3 2022 lúc 10:08

program tinh_tong_chan;

uses crt;

Var i,N,S: integer;

begin

clrscr;

writeln('nhap so n');

readln(N);

S:=0;

i:=1;

while i <= N do

begin

S:=S+i;

i:=i+1;

end;

Writeln('tong la: ',S);

readln;

end.

đây bạn nha

 

Bình luận (0)

Các câu hỏi tương tự
H24
Xem chi tiết
PT
Xem chi tiết
DT
Xem chi tiết
NV
Xem chi tiết
NH
Xem chi tiết
TT
Xem chi tiết
TT
Xem chi tiết
TH
Xem chi tiết
H24
Xem chi tiết