Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phong Hoàng
Đề : viết chương trình nhập n số nguyên dương (n ≤ 10000 ) các số trong phạm vi từ 0→ 254.a. tìm top 30 giá trị số lớn hơn cảDL vào: file B1_INP.TXT có dòng đầu là số n từ dòng kế ghi đầy đủ n số ghi cách nhau dấu cách hoặc xuống dòngKQ ra: ghi vào file B1_OUT.TXT có mỗi dòng ghi 1 giá trị sô trình tự giảm dầnb. tìm top 30 giá trị số có số lần xuất hiện nhiều hơn cảKQ ra: ghi file có mỗi dòng ghi giá trị và số lần xuất hiện ghi cách nhau dấu cách và thứ tự giảm dần số lần xuất hiện( nếu cùng số...
Đọc tiếp

Những câu hỏi liên quan
Irist Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 4 2021 lúc 19:56

Bài 1: 

const fi='b5.inp.txt'

fo='b5.out.txt'

var f1,f2:text;

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

i,n,kt,j,dem:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

 read(f1,a[i]);

dem:=0;

max:=1;

for i:=1 to n do

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then 

begin

inc(dem);

if max<a[i] then max:=a[i];

end;

end;

writeln(f2,dem);

if dem=0 then writeln(f2,'Khong co so nguyen to trong day')

else writeln(f2,max);

close(f1);

close(f2);

end.

Đặng Phạm Thành Nhật
Xem chi tiết
Đặng Phạm Thành Nhật
28 tháng 9 2021 lúc 16:27

mình ghi dư cái số 4 bên phần BAI7.INP nha mn

 

Irist Nguyễn
Xem chi tiết
Ng Ọc
Xem chi tiết
Lê Tràn Diễm My
Xem chi tiết
Buddy
3 tháng 3 2021 lúc 20:42

a)

PROGRAM BAI1a;

VAR N, Tle, Tchan: integer;

BEGIN

          Write ('Nhap N =');

          Readln (N);

          If (N mod 2) = 0 Then

          Tle := N*((N - 2)/2 + 1)/2;

          Tchan := (N + 2)*((N - 2)/2 + 1)/2;

          If (N mod 2) = 1 Then

          Tle := (N + 1)*((N-1)/2 +1)/2;

          Tchan := (N + 1)*((N - 3)/2 + 1)/2;

          WRITELN ('Sle =', Sle, 'Schan =', Schan);

          READLN;

          END.

Bùi Anh Tuấn
3 tháng 3 2021 lúc 20:44

Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 21:17

uses crt;

const fi='tong5.txt'

var f1:text;

n,i,t:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

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

t:=0;

for i:=1 to n do

  if i mod 5=0 then t:=t+i;

writeln(f1,t);

close(f1);

readln;

end.

NGUYỄN THỊ MỸ LINH
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 1 2022 lúc 21:40

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

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

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

cin>>n;

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

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

if (a[i]%2==0) cout<<a[i]<<" ";

return 0;

}

APOK FF
Xem chi tiết
Nguyễn Đức Anh Khoa
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 1 2021 lúc 12:30

const fi='tong.inp'

fo='tong.out'

var f1,f2:text;

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

n,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

luu tean khanh
Xem chi tiết
Phía sau một cô gái
27 tháng 2 2023 lúc 19:46

var A:

     array[1..n] of int64;

     i, n, count: integer;

begin

     write('Nhap so phan tu cua mang: ');

     readln(n);

     for i := 1 to n do

     begin

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

          readln(A[i]);

      end;

 

     count := 0;

     for i := 1 to n do

          if A[i] > 0 then

               count := count + 1;

     writeln('So luong cac so nguyen duong trong mang la: ', count); end.