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.

Câu 2: 

uses crt;

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

i,n,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t1:=0;

t2:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then t1:=t1+a[i]

else t2:=t2+a[i];

end;

writeln('Tong cac so chan la: ',t1);

writeln('Tong cac so le la: ',t2);

readln;

end.

uses crt;

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

i,n,dem,tb:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

tb:=0;

dem:=0;

for i:=1 to n do 

 if (50<=a[i]) and (a[i]<=150) then

begin

tb:=tb+a[i];

inc(dem);

end;

writeln('Ket qua la: ',tb/dem:4:2);

readln;

end.

12 tháng 2 2023

giải giúp vs ạ

mai em kiểm tra

Em biết giờ này hỏi bài là hơi kì ạ. Nhưng mà mai thi mất tiêu r ạ. Các anh chị có thể giúp em vs không ạ. Sáng mai em phải nộp r ạ.😖😖😖viết ctrinh n≤ 10000 nguyên dương. Viết ra số lượng số nguyên tố và 10 giá trị số nguyên tố lớn hơn cả Dữ liệu vào: file B5.INP.TXT. Có dòng đầu là số n. Từ dòng kế ghi lần lượt n số cách nhau dấu cách hoặc xuống dòng KQ ra: ghi file B5.OUT.TXT dòng đầu ghi số lượng...
Đọc tiếp

Em biết giờ này hỏi bài là hơi kì ạ. Nhưng mà mai thi mất tiêu r ạ. Các anh chị có thể giúp em vs không ạ. Sáng mai em phải nộp r ạ.😖😖😖

viết ctrinh n≤ 10000 nguyên dương. Viết ra số lượng số nguyên tố và 10 giá trị số nguyên tố lớn hơn cả 

Dữ liệu vào: file B5.INP.TXT. Có dòng đầu là số n. Từ dòng kế ghi lần lượt n số cách nhau dấu cách hoặc xuống dòng 

KQ ra: ghi file B5.OUT.TXT dòng đầu ghi số lượng số nguyên tố dòng kế ghi 10 giá trị số nguyên tố lớn hơn cả được cách nhau bằng dấu cách 

 

BÀI 2

Viết chương trình đọc các dòng trong một file văn bản độ dài dòng (255 ký tự, số dòng ≤ 50000). Tính ra số từ trong file( từ nằm trọn trên dòng), và dòng có số từ nhiều nhất là bao nhiêu từ, có bao nhiêu dòng như vậy.

Dữ liệu vào : file B6-INT.TXT gồm nhiều dòng văn bản.

KQ ra: file B6-OUT.TXT dòng đầu ghi tổng số từ vủa file, dong 2 ghi số từ nhiều nhất của 1 dòngvà số dòng có số từ nhiều nhất

 

1
2 tháng 4 2021

chữ đẹp quá :))

3 tháng 4 2021

Chữ thầy e á a😥😥

uses crt;

var a,b,c,nn:integer;

begin

clrscr;

readln(a,b,c);

nn:=a;

if nn>b then nn:=b;

if nn>c then nn:=c;

writeln(nn);

readln;

end.

27 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,dem,k,a[10000];

int main()

{

cin>>n;

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

cin>>a[i];

dem=0;

cin>>k;

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

if (a[i]%k==0) 

{

cout<<a[i]<<" ";

dem++;

}

cout<<endl;

cout<<dem;

return 0;

}