Không dùng phép toán mod, viết chương trình hiển thị dãy số mà các phần tử trong dãy là những số tự nhiên chia 3 dư 2 . Các phần tử có giá trị không lớn hơn 100

2 câu trả lời

program Min;
uses crt;
var i:integer;
begin
   clrscr;
   i:=2;
   while i<=100 do
   begin
      write(i:4); i:=i+3;
   end;
   readln
end.

Em xem chương trình nha, chỗ nào chưa hiểu thì hỏi anh :D 

uses crt;
var i,kq:longint;
begin
        clrscr;
        i:=5;
        while i<=100 do
                begin
                        write(i,' ');
                        inc(i,3);
                end;
        readln;
end.


Câu hỏi trong lớp Xem thêm