Những câu hỏi liên quan
Nguyễn Tuấn Dũng
Xem chi tiết
ttanjjiro kamado
20 tháng 1 2022 lúc 17:12

program tong;
uses crt;
var M, N, S, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
s : = 0;
for i := M to N do if (i mod 2 = 0) then s:= s + i;
write (T'ong cac so chan trong pham vi tu M den N = ',s);
readln;
end.

mk mới làm tổng thui nghen

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

Program Tong_hieu_tich_thuong;

Uses crt;

Var a:integer;

b:integer;

Begin

clrscr;

write(‘nhap so thu 1 :’);

readln(a);

writeln(‘ban vua nhap so: ‘,a);

write(‘nhap so thu hai :’);

readln(b);

writeln(‘ban vua nhap so thu 2: ‘,b);

Writeln(a,’+’,b,’=’,a+b);

Writeln(a,’-‘,b,’=’,a-b);

Writeln(a,’*’,b,’=’,a*b);

if b<>0 then 

Writeln(a,’/’,b,’=’,a/b);

readln;

End.

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

bạn in ra đc chx mình làm cái mới rùi đó

Bình luận (2)
Vev37e9h Gev2vyw
Xem chi tiết
Chichimeo doraemon
28 tháng 4 2022 lúc 16:08

Mk có mở đc đâu

Bình luận (2)
Thùy Trinh Ngô
Xem chi tiết
Uyen
Xem chi tiết
Phan Thị Ka
Xem chi tiết
Minh Lệ
19 tháng 3 2023 lúc 22:40

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

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

readln

end.

Bình luận (0)
Minh Lệ
19 tháng 3 2023 lúc 22:41

Câu 2:

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=0 then t:=t+i;

write('Tong cac so chan la: ',t);

readln

end.

Bình luận (0)
Minh Lệ
19 tháng 3 2023 lúc 22:42

Câu 3:

Program HOC24;

var i,t,n: integer;

begin

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

t:=0;

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

write('Tong cac uoc cua ',n,' la: ',t);

readln

end.

Bình luận (0)
8/1 Ngọc Hân
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 22:26

c: 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

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

if (a[i]%2==0) cout<<a[i]<<" ";

return 0;

}

d: 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,nn;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

nn=a[1];

for (i=1; i<=n; i++) nn=min(nn,a[i]);

cout<<nn;

return 0;

}

Bình luận (0)
chương nguyễn
Xem chi tiết
Minh Lệ
13 tháng 3 2021 lúc 13:25

Program HOC24;

var m,n,i: integer;

t1,t2: longint;

begin

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

t1:=1; t2:=1;

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

for i:=m to n do t2:=t2*i;

writeln('T1=',t1);

write('T2=',t2);

readln

end.

Bình luận (0)
Bùi Anh Tuấn
12 tháng 3 2021 lúc 20:22

Bình luận (2)
minh
Xem chi tiết
Selena Flynn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 23:03

c1: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

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

cout<<s;

return 0;

}

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) if (i%2==0) s=s*i;

cout<<s;

return 0;

}

Bình luận (0)