Những câu hỏi liên quan
NT
Xem chi tiết
CX
28 tháng 11 2021 lúc 17:52

Tham khảo

 

  
Bình luận (0)
NT
Xem chi tiết
LD
Xem chi tiết
NT
28 tháng 2 2023 lúc 22:28

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

Bình luận (0)
LV
4 tháng 4 2023 lúc 10:21

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

Bình luận (0)
H24
Xem chi tiết
NT
9 tháng 5 2021 lúc 20:44

Câu 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do

s:=s*i;

writeln(s);

readln;

end.

Bình luận (0)
NT
9 tháng 5 2021 lúc 20:44

Câu 2: 

uses crt;

var t,i,n:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

t:=t+i;

writeln(t);

readln;

end.

Bình luận (0)
T3
29 tháng 5 2021 lúc 9:51

Bài 2 dùng công thức n*(n+1)/2

Bình luận (0)
H24
Xem chi tiết
NT
24 tháng 12 2022 lúc 13:52

Cau 1:

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

Bình luận (0)
DN
Xem chi tiết
NP
26 tháng 5 2021 lúc 12:15

program tinh;

uses crt;

var i,n,x:integer;

t:longint;

function luythua(n,x:integer):longint;

var m:integer;

begin

  m:=1;

  for i:=1 to n do

  m:=m*x;

  luythua:=m;

end;

function giaithua(n:integer):longint;

begin

  if n=0 then giaithua:=1

  else giaithua:=n*giaithua(n-1);

end;

begin

  clrscr;

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

  t:=0;

  for i:=1 to n do

  t:=t+giaithua(luythua(i,x));

  writeln(t);

  readln;

end.

Bình luận (0)
LA
Xem chi tiết
GB
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)
HD
Xem chi tiết
NT
23 tháng 12 2020 lúc 12:35

Nhập n xong rồi làm gì nữa bạn?

Bình luận (0)
AD
Xem chi tiết