Bài 6. Câu lệnh điều kiện

Duy Thanh Bùi
Xem chi tiết
Phía sau một cô gái
20 tháng 3 2023 lúc 19:57

program SoHoanHao;

uses crt;

var

     i, j, n, s: integer;

begin

     clrscr;

     write('Nhap n: ');

     readln(n);

     for i := 1 to n do

     begin

          s := 0;

          for j := 1 to i - 1 do

          begin

               if i mod j = 0 then

                    s := s + j;

               end;

               if s = i then

                    writeln(i);

     end;

     readln;

end.

Bình luận (0)
LQmobi Acc
Xem chi tiết
Kiều Vũ Linh
18 tháng 3 2023 lúc 10:54

Câu 1:

var i,n:integer;

begin

write('n = ');readln(n);

For i:=1 to n do

if i mod 2 = 0 then write(i:6);

readln;

end.

Bình luận (0)
Ngô Trung HIẾU
Xem chi tiết
Kiều Vũ Linh
15 tháng 3 2023 lúc 16:10

Câu lệnh sau do có thể là câu lệnh đơn hoặc câu lệnh ghép

Bình luận (0)
Ngô Trung HIẾU
Xem chi tiết
Hoàng Bảo Long
Xem chi tiết
Minh Lệ
13 tháng 3 2023 lúc 18:52

Chuyển thành while..do

s:=0; i:=1;

while i<=n do

begin

s:=s+i/2;

i:=i+1;

end;

 

Bình luận (0)
Hoàng Bảo Long
Xem chi tiết
Quynh Anh Nguyen Tran
Xem chi tiết
Phía sau một cô gái
7 tháng 3 2023 lúc 15:15

Program PASCAL;

Var

      i, N: Integer;

Begin

      Write('Nhap vao so nguyen N: ');

      Readln(N);

      For i := 1 to N do

      Begin

            If (i mod 2 = 0) then

                  Writeln(i);

      End;

      Readln;

End.

Bình luận (0)
LÊ THỊ HỒNG THANH
Xem chi tiết
Đỗ Tuệ Lâm
28 tháng 1 2023 lúc 12:39

program Xau219;
uses crt;
Var S:String;
    dem, max, i:Byte
begin
  clrscr;
  Write ('Nhap xau:'); Readln (S);
  max:=0; dem:=0; S:=S+''
  For i:=1 to Length (S) do
  begin
     If S[i] ='8' then dem:=dem+1
     else
       If max<them then
          begin max:=dem; dem:=0; end;
  end;
  Writeln('Ket qua:'max);
  readln;
end.

Bình luận (1)
Nguyễn khang
14 tháng 2 2023 lúc 20:10

Viết chương trình nhập 4 số và tính:

-Tổng 4 số

-Số lớn nhất

-Số bé nhất

-Số chia hết cho 2

-Số không chia hết cho 3

-So sánh số đầu và số cuối.

Bình luận (0)
Nguyễn Lê Phước Thịnh
6 tháng 1 2023 lúc 14:38

Cau 14: x=6; y=3

Cau 13: a=2; b=1

Cau 12:

Input: x

Output: Nghiệm của pt x+3+20=0

Bình luận (3)
Nguyễn Lê Phước Thịnh
6 tháng 1 2023 lúc 14:38

Cau 14: x=6; y=3

Cau 13: a=2; b=1

Cau 12:

Input: x

Output: Nghiệm của pt x+3+20=0

Bình luận (0)