Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Hai Phạm
Xem chi tiết
nguyễn an phát
19 tháng 3 2021 lúc 20:45

program tim_max;

uses crt;

var i,n,max:integer;

x:array[1..100]of byte;

begin

clrscr;

write('nhap so n:');readln(n);

i:=1;

while i<=n do

begin

write('x[',i,']=');readln(x[i]);

i:=i+1;

end;

max:=x[1];i:=1;

while i<=n do

begin

if max<x[i] then max:=x[i];

i:=i+1;

end;

write('so lon nhat la:',max);

readln;

end.

Minh Đông
Xem chi tiết
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.

Nhật Duy Lê Võ
Xem chi tiết
khang
8 tháng 3 2023 lúc 21:33

program a1;

uses crt;

var s,i,n:integer;

begin

    clrscr;

    write('nhap n:'); readln(n);

    s:=0; i:=1;

    while i<=n do

    begin

        s:=s+1;

        i:=i+1;

    end;

    write('tong cua day n:',s);

    readln;

end.

Thu Tuyền
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 21:23

Program HOC24;

var i,n: integer;

S: longint;

begin

write('Nhap N: '); readln(n);

i:=1; s:=0;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

write('S=',S);

readln

end.

Nguyễn Hoàng Duy
24 tháng 3 2023 lúc 10:30

program tinh_tong_S;

var
  n, i, S: integer;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  i := 1;
  
  while i <= n do
  begin
    S := S + i;
    i := i + 2;
  end;
  
  writeln('Tong S la: ', S);
  
  readln;
end.

Thanh huyền
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 17:08

Đề sai đúng không, bạn kiểm tra lại đề nhé, mình không thấy quy luật gì trong dãy tổng của S cả

Minh Lệ
7 tháng 3 2023 lúc 17:36

FOR..DO

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap N: '); readln(n);

S:=0;

For i:=1 to N do if i mod 2=0 then S:=S+i;

write('S = ',S);

readln

end.

Minh Lệ
7 tháng 3 2023 lúc 23:02

While..do

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap N: '); readln(n);

S:=0; i:=2;

while i<=n do 

begin

s:=s+i;

i:=i+2;

end;

write('S = ',S);

readln

end.

Ngọc Tú
Xem chi tiết
Phía sau một cô gái
7 tháng 3 2023 lúc 19:46

var n, s, i: integer;

begin

       write('Nhap n = ');

       readln(n);

       s := 0;

       i := 3;

       while i <= n do

       begin

              s := s + i;

              i := i + 3;

       end;

       writeln('Tong la ', s);

       readln;

end.

Nguyễn Hoàng Duy
24 tháng 3 2023 lúc 10:31

program tinh_tong_S;

var
  n, i, S: integer;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  
  for i := 3 to n step 1 do
  begin
    if i mod 2 = 0 then
      S := S + i;
  end;
  
  writeln('Tong S la: ', S);
  
  readln;
end.

Thảo My Lê Phương
Xem chi tiết
Kiều Vũ Linh
29 tháng 3 2022 lúc 8:33

var i,n,s:integer;

begin

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

i:=1;

while i<=n do

begin

s:=s+i;

i:=i+1;

end;

write('Tong la ',s);

readln;

end.

Nguyễn Huỳnh Khôi Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 5 2021 lúc 19:39

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.

Nguyễn Huỳnh Khôi Nguyên
3 tháng 5 2021 lúc 11:37

ae nào giúp mình với ạ'

 

Thu Tuyền
Xem chi tiết
Phía sau một cô gái
8 tháng 3 2023 lúc 15:05

program tinhtong;

var n,i : integer;

S : real;

begin

write('Nhap n: ');

readln(n);

i:=1;

S:=0;

while i<=n do

begin

S:=S+1/i;

i:=i+1;

end;

writeln('Tong S= ',S);

readln;

end.

Nguyễn Hoàng Duy
24 tháng 3 2023 lúc 10:29

program tinh_tong_S;

var
  n, i: integer;
  S: real;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  i := 1;
  
  while i <= n do
  begin
    S := S + 1 / i;
    i := i + 1;
  end;
  
  writeln('Tong S la: ', S:0:2);
  
  readln;
end.