Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

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.

Nguyễn Thái Luật
Xem chi tiết
datcoder
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;

}

datcoder
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.

Nguyen Hoai Nam
Xem chi tiết
Ngọc Vy
Xem chi tiết
HT.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.

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;

}

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.

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.

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.

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.

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;

}

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;

}