Những câu hỏi liên quan
Tuyết Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 13:23

Bài 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(n,'!=',s:0:0);

readln;

end.

Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 22:08

1).

program oken;

uses crt;

var n,i: integer;

      gt: qword;

begin

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

gt:=1;

for i:=1 to n do gt:=gt*i;

writeln('N!=',gt);

readln;

end.

2).

program tongcacsole;

uses crt;

var t,i:longint;

begin

clrscr;

for i:=1 to 203 do 

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

write(t);

end.

3).

program tongcacsochan;

uses crt;

var t,i:longint;

begin

clrscr;

for i:=1 to 20 do 

  if i mod 2 = 0 then t:=t+i;

write(t);

end.

Tuyết Lê
Xem chi tiết
꧁༺β£ɑℭƙ £❍ζʊꜱ༻꧂
27 tháng 2 2021 lúc 17:44

begin

A:=0;

for i:=1 to 20 do A:= A+i*2;

writeln (' tong =',A);

readln;

end.

Minh Lệ
27 tháng 2 2021 lúc 17:47

For i:=1 to 20 do if i mod 2=0 then t:=t+i;

Trần Ái Linh
27 tháng 2 2021 lúc 17:49

program im_14424;

uses crt;

var i, S: byte

begin

clrscr;

S:=0

for i:=1 to 20 do

begin

if i mod 2 = 0 then S:=S+i;

write('Tong cac so chan tu 1 den 20 la: ', S);

end;

readln;

end.

Bảo Trâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2022 lúc 23:03

 

 

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

if (i%2!=0) t+=i;

cout<<t;

return 0;

}

 

Trương Đức Nhân
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 1 2022 lúc 13:22

Câu 1: 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 20 do 

  if i mod 4=0 then t:=t+i;

writeln(t);

readln;

end.

Câu 2: 

uses crt;

var i,dem:integer;

begin

clrscr;

dem:=0;

for i:=1 to 20 do 

  if i mod 3=0 then dem:=dem+1;

writeln(dem);

readln;

end.

Võ Tấn Trường Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 15:01

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0;

cin>>n;

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

if (i%6==0) t+=i;

cout<<t;

return 0;

}

Bảo Trâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2022 lúc 23:03

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

if (i%2==0) t+=i;

cout<<t;

return 0;

}

Nguyễn kiên
Xem chi tiết
Hùng Bùi
Xem chi tiết
Hùng Bùi
13 tháng 4 2023 lúc 22:31

giúp mik với

 

Minh Lệ
13 tháng 4 2023 lúc 22:54

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=0;

for i:=1 to n do if i mod 2=1 then t:=t+i;

write('Tong cac so le lien tiep la: ',t);

readln

end.

Hải yến 11a2
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 23:38

#include <bits/stdc++.h>

using namespace std;

int t,i;

int main()

{

t=0;

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

if ((i%3==0) and (i%2==1)) t=t+i;

cout<<t;

return 0;

}