Những câu hỏi liên quan
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.

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.

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.

hà phương
Xem chi tiết
Nguyễn Hoàng Tiến
29 tháng 7 2023 lúc 11:21

đitf

Hưng Quốc
Xem chi tiết
HT.Phong (9A5)
31 tháng 3 2023 lúc 16:51

1. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do write(i:3);

readln;

end.

2. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2 = 0) then write(i:3);

readln;

end.

láobốlaos
31 tháng 3 2023 lúc 16:54

1. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do write(i:3);

readln;

end.

2. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2 = 0) then write(i:3);

readln;

end.

Nguyễn Hoàng Duy
2 tháng 4 2023 lúc 16:31

1.

program InDaySoTuNhien;
var n, i: integer;
begin
   write('Nhap so nguyen duong n: ');
   readln(n);

   writeln('Day so tu 1 den ', n, ' la:');
   for i := 1 to n do
      write(i, ' ');
end.

2.

program InSoChan;
var
   n, i: integer;
begin
   write('Nhap so nguyen n: ');
   readln(n);

   writeln('Cac so nguyen chan trong khoang tu 1 den ', n, ' la:');
   for i := 1 to n do
   begin
      if i mod 2 = 0 then
         write(i, ' ');
   end;
end.

nguyennhalam
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2021 lúc 13:41

#include <bits/stdc++.h>

using namespace std;

long long a[10000],i,n,dem;

int main()

{

cin>>n;

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

dem=0;

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

if (a[i]%3==0) 

{

cout<<a[i]<<" ";

dem++;

}

cout<<endl;

cout<<dem;

return 0;

}

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;

}

k_o_t_en
Xem chi tiết
Phía sau một cô gái
8 tháng 5 2023 lúc 20:22

program BaiTap;

var

      A: array[1..150] of integer;

      N, i, sum: integer;

begin

      write('Nhap so phan tu cua day A (N <= 150): ');

      readln(N);

      for i := 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(A[i]);

      end;

      writeln('Day so vua nhap la:');

      for i := 1 to N do

            write(A[i], ' ');

      writeln;

      sum := 0;

      for i := 1 to N do

            if A[i] mod 2 = 0 then

                  sum := sum + A[i];

      writeln('Tong cac phan tu chan trong day la: ', sum);

      readln;

end.

denny
Xem chi tiết
Đỗ Tuệ Lâm
10 tháng 5 2022 lúc 8:05

THAM KHẢO:

undefined

hưng phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 4 2022 lúc 8:03

#include <bits/stdc++.h>

using namespace std;

long long a[100],i,n,t,nn;

int main()

{

cin>>n;

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

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

cout<<a[i]<<" ";

cout<<endl;

t=0;

for (i=1; i<=n; i++) if (a[i]%2==0) t+=a[i];

nn=a[1];

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

nn=min(nn,a[i]);

cout<<t<<endl;

cout<<nn<<endl;

cout<<a[1]+a[n];

return 0;

}

๖ۣۜHả๖ۣۜI
Xem chi tiết
Uyên  Thy
18 tháng 3 2022 lúc 21:05

Tham khảo
Bài 2.
Var i:integer;
begin
for i:=1 to 100 do
if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');
readln;
end.