Những câu hỏi liên quan
lân đinh
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 5 2021 lúc 10:59

Bài 1: 

uses crt;

var n,t1,t2,t3,i:integer;

begin

clrscr;

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

t1:=0;

t2:=0;

for i:=1 to n-1 do 

  begin

if i mod 2=1 then t1:=t1+i

else t2:=t2+i;

end;

writeln('Tong cac so le nho hon ',n,' la: ',t1);

writeln('Tong cac so chan nho hon ',n,' la: ',t2);

t3:=0;

for i:=1 to 2*n do 

  t3:=t3+i;

writeln('Tong cac so trong day so tu 1 toi 2*',n,' la: ',t3);

readln;

end.

Bình luận (0)
Nguyễn Huy Bảo Thạch
Xem chi tiết
dswat monkey
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 1 2022 lúc 9:36

c: 

#include <bits/stdc++.h>

using namespace std;

long long ln,i,n,x;

int main()

{

cin>>n;

ln=LLONG_MIN;

for (i=1; i<=n; i++)

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}

Bình luận (0)
Lê Xuân Hoa
Xem chi tiết
Nguyễn Hoàng Duy
30 tháng 3 2023 lúc 21:30

program SumOfNumbers;

uses crt;

var
  n, i, sum: integer;
  numbers: array[1..100] of integer;

begin
  clrscr;
  write('Enter n: ');
  readln(n);

  // Tạo mảng các số tự nhiên từ 1 đến n
  for i := 1 to n do
    numbers[i] := i;

  // Tính tổng các số tự nhiên từ 1 đến n
  sum := 0;
  for i := 1 to n do
    sum := sum + numbers[i];

  writeln('The sum of the first ', n, ' natural numbers is: ', sum);
  readln;
end.

Bình luận (0)
Nguyễn Thị Ngọc Oanh
Xem chi tiết
ttanjjiro kamado
19 tháng 1 2022 lúc 20:29

var i,n: integer;

       s:real;

begin

write(‘Nhập n: ‘); readln(n);

i:=1;

repeat 

s:=s+1/i;

i:=i+1;

until i=n;

write(‘s =‘, s:0:4);

readln

end.

 

      diepbichdiepbich  016/08/2021 at 03:53Reply

Program Hotboy ;

Uses crt; 

Var n,i,s : real;

Begin

Writeln(‘nhap n’);  readln(n);

Repeat 

S:=S+ 1/i;

I:=i+1 ; 

Until n=i; 

Writeln(‘S=’,S);

Readln

End.

Bình luận (3)
ttanjjiro kamado
19 tháng 1 2022 lúc 20:29

bạn tham khảo nha

Bình luận (0)
Nguyễn Lê Phước Thịnh
19 tháng 1 2022 lúc 23:30

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

readln(n);

s:=0;

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

writeln(s:4:2);

readln;

end.

Bình luận (0)
Trường Nguyễn
Xem chi tiết
Minh Lệ
1 tháng 4 2022 lúc 11:26

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

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

readln

end.

Bình luận (0)
Trần Văn Việt Hùng
Xem chi tiết
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.

Bình luận (0)
Ngáo Ngơ Alice
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 20:50

Bài 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

  s:=s+1/(2*i+1);

writeln(s:4:2);

readln;

end.

Bình luận (0)