Những câu hỏi liên quan
Đào Hữu Bảo
Xem chi tiết
Minh Lệ
14 tháng 4 2023 lúc 12:05

Program HOC24;

var i,n,k,d: integer;

a: array[1..1000] of integer;

begin

readln(n,k);

for i:=1 to n do read(a[i]); readln;

d:=0;

for i:=1 to n do if a[i]=k then d:=d+1;

write(d);

readln

end.

Bình luận (0)
Nguyễn Thái Luật
Xem chi tiết
Bastkoo
26 tháng 3 lúc 8:34

#include <stdio.h>

int main(){

    int n;

    scanf("%d",&n);

    long t=0; int i,j;

    for (i=2; i<=n; i++){

        int c=0;

        for (j=2; j<i; j++)

            if (i%j==0) c++;

        if (c==0) t=t+i;

        }

printf("%d",t);

return 0;

}

Bình luận (0)
Bastkoo
9 tháng 1 lúc 23:47

Bạn trình bày lại đề bài rõ hơn nha, đề đọc rất khó hiểu ấy.

Bình luận (2)
Nguyen Hoai Nam
Xem chi tiết
Ngọc Vy
Xem chi tiết
Thanh Phong (9A5)
22 tháng 2 2023 lúc 15:11

Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if (n mod 2<>0) then 

write(i:2);

readln;

end.

Bình luận (0)
phạm bá chỉnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 12 2021 lúc 22:44

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

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

sort(a+1,a+n+1);

for (i=n; i>=1; i--) cout<<a[i]<<" ";

return 0;

}

Bình luận (0)
nguyễn an phát
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 3 2021 lúc 19:52

a)

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

repeat

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

until n>1;

writeln('Cac so nguyen to be hon hoac bang ',n,' la: ');

for i:=2 to n do 

begin

kt:=0;

for j:=2 to i-1 do 

  if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.

Bình luận (0)
VŨ THANH HÀ
Xem chi tiết
Minh Lệ
30 tháng 10 2021 lúc 18:43

Bài 1:

Program HOC24;

var x,t: byte;

begin

write('Nhap so co 2 chu so: '); readln(x);

t:=(x mod 10)+(x div 10);

write('Tong 2 chu so cua so do la: ',t);

readln

end.

Bình luận (1)
Minh Lệ
30 tháng 10 2021 lúc 18:43

Bài 2: 

Program HOC24;

var ho_ten,gioi_tinh: string;

nam_sinh: integer;

begin

write('Ho va ten: '); readln(ho_ten);

write('Nam sinh: '); readln(nam_sinh);

write('Gioi_tinh: '); readln(gioi_tinh);

write('Nguoi do nam nay ',2021-nam_sinh,' tuoi');

readln

end.

Bình luận (1)
Minh Lệ
30 tháng 10 2021 lúc 18:45

Bài 3:

Program HOC24;

var s: string;

i: byte;

begin

write('Nhap so co 4 chu so '); readln(s);

for i:=length(s) downto 1 do write(s[i]);

readln

end.

Bình luận (1)
Trần Linh Chi
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:57

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

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

if (i%3==0) cout<<i<<" ";

return 0;

}

Bình luận (0)
chi linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 12 2021 lúc 12:20

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

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

if (i%3==0) cout<<i<<" ";

return 0;

}

Bình luận (0)