Tin học cấu trúc lặp

[Lê Kiều Trang]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

cho 2 số a và b nhập từ bàn phím a < b tính va hiển thị ra màn hình tổng của các số chẵn từ a->b

 

[Trâm Nguyễn Thị Ngọc]

cho 2 số a và b nhập từ bàn phím a < b tính va hiển thị ra màn hình tổng của các số chẵn từ a->b

Var
i,t,a,b:integer;
Begin
write('nhap vao 2 so:');
readln(a);
readln(b);
t:=0;
for i:=a to b do
if i mod 2=0 then t:=t+i;
Write('tong cac so chan tu' ,a,'den',b,'la:',t);
readln
END.

 

[Lục Vân Tiên]

program Tinh_tong_cac_chan;
uses crt;
var a,b,S,i:longint;
BEGIN
 clrscr;
 S:=0;
 write('Cho a = ');readln(a);
 write('Cho b = ');readln(b);
 if (a<0) or (b<0) then writeln('So da nhap khong hop le!')
 else for i:=a to b do
 begin
 if i mod 2 = 0 then S:=S+i;
 writeln('Tong cac so chan tu a den b la : ',S);
 end;
 readln;
END.

 

[Hieupq03]

Var
i,t,a,b:integer;
Begin
write('nhap vao 2 so:');
readln(a);
readln(b);
for i:=a to b do
if i mod 2=0 then t:=t+i;
Write('tong cac so chan tu' ,a,'den',b,'la:',t);
readln
END.

bạn nhớ gán tổng =0