Tin học Pascal lớp 8

[Thái Sơn Long]

[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.

Lập trình tổng 5 số bé hơn 100 có tận cùng là 3 và gần 100 nhất

 

[phkien@morsin.com]

var i ,s, k : integer;
begin
s:=0; i:=100; k:=0;
while k < 5 do
      begin
      if i mod 2 = 0 then begin s:=s+i; k:=k+1; end;
      i:=i-2;
      end;
write(s);
readln;
end.