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
Thành Tân B1-
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 12 2021 lúc 8:42

Bài 2: 

uses crt;

var x,i,n,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then inc(dem);

end;

writeln(dem);

readln;

end.

thu thu
Xem chi tiết
Nguyễn Bá Đức
Xem chi tiết
Trí So Sad
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 4 2021 lúc 21:38

a)

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

  s:=s+i;

writeln(s);

readln;

end.

Nguyễn Lê Phước Thịnh
22 tháng 4 2021 lúc 21:38

b) 

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+i;

inc(i);

end;

writeln(s);

readln;

end.

NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 2 2023 lúc 0:38

Câu 6:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

PC Vũ
Xem chi tiết
Minh Lệ
11 tháng 5 2021 lúc 1:42

Program HOC24;

var i: integer;

s: real;

begin

s:=0;

for i:=1 to 100 do s:=s+1/i;

write('S= ',s:2:2);

readln

end.

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.

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

*for..do

Program HOC24;

var i,n: integer;

s: real;

begin

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

s:=0;

for i:=1 to n do s:=s+1/sqr(i);

write('S= ',s:6:2);

readln

end.

Minh Lệ
7 tháng 3 2023 lúc 21:30

*while..do

Program HOC24;

var i,n: integer;

s: real;

begin

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

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

write('S= ',s:6:2);

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 ạ'