K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

8 tháng 10 2020

Program HOC24;

const fi='Cau1.INP';

fo='Cau2.OUT';

var i,a,b,c,t,d: integer;

f: text;

function ucln(x,y: integer): integer;

var t: integer;

begin

while y<>0 do

begin

t:= x mod y;

x:=y;

y:=t;

end;

ucln:=x;

end;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,a,b,c);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

for i:=b to c do

begin

if i mod a=0 then write(f,i,' ');

t:=t+i;

end;

writeln(f);

while t<>0 do

begin

t:=t div 10;

inc(d);

end;

writeln(f,d);

if ucln(a,b,c)=1 then write(f,1) else write(f,0);

close(f);

end;

begin

ip;

out;

end.

22 tháng 7 2023

program tong_so_le;

var

     n, i, a_i, tong: integer;

begin

     writeln('Nhap vao so nguyen khong am n:');

     readln(n);

     while (n <= 0) or (n > 100) do

     begin

          writeln('So nguyen n phai thoa man 0 < n <= 100, vui long nhap lai:');

          readln(n);

     end;

     writeln('Nhap vao ', n, ' so nguyen a1, a2, ..., an:','<mỗi số nguyên nhập trên một hàng>');

     tong := 0; // Khởi tạo tổng bằng 0

     for i := 1 to n do

     begin

          readln(a_i);

          if i mod 2 = 1 then

               tong := tong + a_i; 

     end;

     writeln('Tong cac so tai vi tri le trong mang la: ', tong);

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

freopen("dayd.inp","r",stdin);

freopen("dayd.out","w",stdout);

cin>>n;

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

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

if (a[i]>0) cout<<a[i]<<" ";

return 0;

}

8 tháng 10 2019

program hoidaptinhoc;
uses crt;
var K,N,X,Y,M,i : longint;
z : string;
BEGIN
clrscr;
writeln('Nhap so dong trong moi trang cua quyen sach: '); readln(K);
writeln('Nhap so thu tu cua dong: '); readln(N);
if (N mod K) = 0 then begin X:=N div K; Y:=K end;
if (N mod K) <> 0 then begin X:= (N div K) + 1; Y:=N mod K end;
M:=0;
for i:=1 to X do
begin
str(i,z);
M:=M+length(z);
end;
writeln('X= ',X,' Y= ',Y);
writeln('M= ',M);
readln;
END.

12 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t,dem,j;

int main()

{

cin>>n;

x=n;

t=0;

while (n>0)

{

t=t+n%10;

n=n/10;

}

cout<<t;

dem=0;

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

{

bool kt=true;

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

if (i%j==0) kt=false;

if (kt==true) dem++;

}

cout<<dem;

return 0;

}

29 tháng 9 2019

Lời giải:

program hotrotinhoc;

var max,min,i,x,k: integer;

begin

write('X='); readln(x);

write('K='); readln(k);

min:=32000; max:=0;

for i:=1 to x do if (x mod i=0) then

begin

(min>i) then min:=i;

if (max<i) then max:=i;

end;

writeln(min,' ',max);

write(sqr(x),' ',k-x);

readln

end.

1 tháng 10 2020

Program HOC24;

const fi='Cau3.INP';

var f: text;

k: char;

s: string;

i: byte;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,s);

read(f,k);

close(f);

end;

begin

ip;

for i:=1 to length(s) do if s[i]=k then write(i,' ');

readln

end.

8 tháng 10 2020

rất l bạn nhưng nó bị dính exit code2

và mik đã ra trên mạng nhưng làm theo thì không chạy đ chương trình

Câu 1: Trong Lễ Hội “Bánh Chưng Xanh” do Phòng GD&amp;ĐT tổ chức dịp tết nguyên đán cho học sinh tại nhà Văn hóa Quận, Ban tổ chức đã đưa ra rất nhiều trò chơi hấp dẫn và đặc sắc. Để các trò chơi thêm phần thú vị, Ban tổ chức đưa ra quy định như sau: Mỗi người tham gia sẽ bắt ngẫu nhiên một số nguyên dương và chỉ được chơi những trò chơi có số...
Đọc tiếp

Câu 1:
Trong Lễ Hội “Bánh Chưng Xanh” do Phòng GD&amp;ĐT tổ chức dịp tết nguyên đán
cho học sinh tại nhà Văn hóa Quận, Ban tổ chức đã đưa ra rất nhiều trò chơi hấp dẫn và đặc
sắc. Để các trò chơi thêm phần thú vị, Ban tổ chức đưa ra quy định như sau: Mỗi người
tham gia sẽ bắt ngẫu nhiên một số nguyên dương và chỉ được chơi những trò chơi có số thứ
tự là ước của số nguyên đã bắt được. Tuy nhiên, trò chơi số 1 và 2 bị hỏng nên không có ai
chơi được. Sau khi kết thúc hội chợ, Ban tổ chức muốn thống kê xem trò chơi nào có đông
người chơi nhất và số lượng là bao nhiêu. Là một lập trình viên, bạn hãy giúp Ban tổ chức
làm việc này.
Yêu cầu: Cho số nguyên n là số lượng người tham gia và dãy gồm n số nguyên dương là
các số ngẫu nhiên mà mỗi người tham gia bắt được. Hãy đưa ra số lượng người chơi tối đa
có thể của một trò chơi.
Dữ liệu vào: Được cho ở tệp văn bản Cau1.INP có cấu trúc như sau:
- Dòng 1: Ghi một số nguyên n là số lượng người tham gia (1<=n<==10 ^4 ).
- Dòng 2: Ghi n số nguyên A i là các số mà mỗi người tham gia bắt được (1<=A i <=10^ 5 ).
Dữ liệu ra: Ghi ra tệp văn bản Cau2.OUT có cấu trúc như sau:
- Dòng 1: Ghi một số nguyên duy nhất là kết quả tìm được.

2
16 tháng 10 2020

giup mik vs

21 tháng 10 2020

cho mik xin cái code