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

Trí Nguyễn
Xem chi tiết
Phía sau một cô gái
7 tháng 7 2023 lúc 20:19

program bai_toan;

var

      N, i, sum: integer;

begin

      write('Nhap so N: ');

      readln(N);

      write('Cac uoc cua ', N, ' khong ke ', N, ' la: ');

      for i := 1 to N - 1 do

            if N mod i = 0 then

                  write(i, ' ');

      writeln;

      sum := 0;

      for i := 1 to N - 1 do

      begin

            if N mod i = 0 then sum := sum + i;

      end;

      if sum = N then writeln(N, ' la so hoan hao')

      else writeln(N, ' khong phai la so hoan hao');

      writeln;

      writeln('Tat ca so hoan hao trong pham vi 1 -> ', N, ' la:');

      for i := 1 to N do

      begin

            sum := 0;

            for j := 1 to i - 1 do

            begin

                  if i mod j = 0 then sum := sum + j;

            end;

            if sum = i then writeln(i);

      end;

      readln;

end.

Bình luận (0)
Trầm tiến
Xem chi tiết
Kiều Vũ Linh
16 tháng 5 2023 lúc 21:31

Var a:array:[1..1000] of integer;

i,n,t,d:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

if (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then

d:=d+1;

End;

Writeln('Co ',d,' so chia het cho 2 va 3');

For i:=1 to n do 

If a[i] < a[i+1] then

begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

end;

write('Day sau khi sap xep la: ');

for i:=1 to n do

Write(a[i]:8);

Readln

End.

Bình luận (0)
Ly Trần
Xem chi tiết
Minh Lệ
8 tháng 5 2023 lúc 17:42

For i:=1 to 3 do s:=s+3;

Câu lệnh thực hiện cộng vào biến S 3 đơn vị 3 lần. -> S = 5 + 3 + 3 + 3 = 14

Vậy S=14 . Chọn D.

Bình luận (0)
Lê Tâm Anh
Xem chi tiết
gấu béo
7 tháng 5 2023 lúc 19:20

program Le_Nho_Hon_Hoac_Bang_n;

uses crt;

var

       n, i: integer;

begin

       clrscr;

       write('Nhap vao mot so nguyen duong n: ');

       readln(n);

       while n <= 0 do

       begin

              writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');

              readln(n);

       end;

       clrscr;

       writeln('Cac so le nho hon hoac bang ', n, ' la:');

       i := 1;

       while i <= n do

       begin

              if i mod 2 <> 0 then

                     writeln(i);

              i := i + 1;

       end;

       readln;

end.

Bình luận (0)
HUY HUỲNH QUANG
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2023 lúc 14:54

Bài 5:

Var a:array:[1..1000] of integer;

i,n,max:integer;

sc, sl:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');rreadlna[i]);

If a[i] mod 2 = 0 then sc:=sc+b[i];

If a[i] mod 2 <> 0 then sl:=sl+a[i];

End;

max:=a[1];

For i:=2 to n do

If a[i] > max then max:=a[i];

Writeln('Tong cac so chan la ',sc);

Writeln('Tong cac so le la ',sl);

write('So lon nhat la ',max);

Readln

End.

Bình luận (1)
Huyen Dinh phuong
Xem chi tiết
Phía sau một cô gái
3 tháng 5 2023 lúc 19:37

program TinhTBC;

uses crt;

var

      N, i: integer;

      Tong, TBC : real;

      A: array[1..100] of real;

begin

      write('Nhap so phan tu mang N = ');

      readln(N);

      writeln('Nhap cac phan tu cua mang: ');

      for i:=1 to N do

      begin

            write('A[', i, '] = ');

            readln(A[i]);

      end;

      Tong := 0;

      for i:=1 to N do

            Tong := Tong + A[i];

      TBC := Tong / N;

      writeln('Tong cac phan tu: ', Tong:5:2);

      writeln('Trung binh cong: ', TBC:5:2);

      readln;

end.

Bình luận (0)
Ngọc Trâm
Xem chi tiết
Kiều Vũ Linh
28 tháng 4 2023 lúc 9:54

A.6;3;6

Bình luận (0)
Ngọc Trâm
Xem chi tiết
Kiều Vũ Linh
28 tháng 4 2023 lúc 9:55

i = 6; k = 8

\(\Rightarrow\) Không có đáp án đúng

Bình luận (0)
võ bảo nam
Xem chi tiết
nhan tran
Xem chi tiết