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.
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.
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;
}
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.
#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;
}
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.
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.
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
- Kích thước bảng là N×Mcap N cross cap M𝑁×𝑀, với 1<N,M≤1001 is less than cap N comma cap M is less than or equal to 1001<𝑁,𝑀≤100.
- Dữ liệu đầu vào từ file
- Dòng đầu tiên chứa Ncap N𝑁và Mcap M𝑀.
- Ncap N𝑁dòng tiếp theo, mỗi dòng chứa Mcap M𝑀số nguyên cách nhau bởi dấu cách.
- Dữ liệu đầu ra ghi vào file
- Ncap N𝑁dòng, mỗi dòng là số lớn nhất của hàng và các vị trí của nó.
- Nếu dữ liệu đầu vào sai điều kiện, ghi
Thông tin hữu íchBAI3.INP:BAI3.OUT:-1.- Vị trí của một ô trong hàng ii𝑖và cột jj𝑗được tính là i×M+j+1i cross cap M plus j plus 1𝑖×𝑀+𝑗+1(nếu hàng và cột bắt đầu từ 000) hoặc (i−1)×M+jopen paren i minus 1 close paren cross cap M plus j(𝑖−1)×𝑀+𝑗(nếu hàng và cột bắt đầu từ 111).
- Để tìm số lớn nhất trong một hàng, cần duyệt qua tất cả các phần tử trong hàng đó.
- Để tìm tất cả các vị trí của số lớn nhất, cần duyệt lại hàng sau khi đã tìm được giá trị lớn nhất.
Cách giải Đọc dữ liệu từ file, kiểm tra điều kiện N,Mcap N comma cap M𝑁,𝑀, sau đó xử lý từng hàng để tìm giá trị lớn nhất và các vị trí của nó.- Bước 1 . Đọc và kiểm tra dữ liệu đầu vào
- Đọc Ncap N𝑁và Mcap M𝑀từ file
- Kiểm tra nếu 1<N,M≤1001 is less than cap N comma cap M is less than or equal to 1001<𝑁,𝑀≤100.
- Nếu không thỏa mãn, ghi
- Bước 2 . Xử lý từng hàng
- Lặp qua từng hàng từ i=1i equals 1𝑖=1đến Ncap N𝑁.
- Trong mỗi hàng, khởi tạo
- Bước 3 . Tìm giá trị lớn nhất và vị trí
- Duyệt qua các phần tử jj𝑗từ 111đến Mcap M𝑀trong hàng hiện tại.
- Nếu giá trị hiện tại lớn hơn
- Nếu giá trị hiện tại bằng
- Vị trí của ô (i,j)open paren i comma j close paren(𝑖,𝑗)là (i−1)×M+jopen paren i minus 1 close paren cross cap M plus j(𝑖−1)×𝑀+𝑗.
- Bước 4 . Ghi kết quả
- Ghi
Giải pháp Kết quả được ghi vào fileBAI3.INP.-1vàoBAI3.OUTvà kết thúc.max_vallà giá trị nhỏ nhất có thể và một danh sách rỗngpositions.max_val, cập nhậtmax_valvà xóapositions, sau đó thêm vị trí hiện tại vàopositions.max_val, thêm vị trí hiện tại vàopositions.max_valvà tất cả cácpositionsvào fileBAI3.OUT, cách nhau bởi dấu cách.BAI3.OUTtheo định dạng: số lớn nhất của hàng và các vị trí tương ứng, cách nhau bởi dấu cách