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ác câu hỏi dưới đây có thể giống với câu hỏi trên
30 tháng 12 2020
uses crt;
var a:array[1..200]of integer;
i,t:integer;
begin
clrscr;
for i:=1 to 200 do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac phan tu le nho hon 200 la: ');
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i]<200) then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if (50<a[i]) and (a[i]<80) then t:=t+sqr(a[i]);
writeln('Tong binh phuong cac phan tu thuoc khoang (50;80) la: ',t);
readln;
end.
NT
0
H
4 tháng 4 2021
#include<bits/stdc++.h>
using namespace std;
int a[1000000],n,b[1000000];
int main(){
cin >>n;
for (int i=1;i<=n;i++) {cin >> a[i];
if (a[i]%2==1) b[a[i]]=i;
}
for (int i=1;i<=n;i++){
if (b[a[i]]!=0) {cout << b[a[i]] << " "<<a[i]<<'\n';b[a[i]]=0;}
}
}
Nhập trực tiếp , in dạng :
Chỉ số _ số
......
16 tháng 1 2022
const fi='dulieu.txt';
fo='ketqua.txt';
var i,t:integer;
f1,f2:text;
a:array[1..9]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 9 do
begin
read(f1,a[i]);
t:=t+a[i];
end;
writeln(f2,t);
close(f1);
close(f2);
end.
16 tháng 1 2022
const fi='dataln.txt';
fo='dataout.txt';
var f1,f2:text;
x,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 24 do
begin
read(f1,x);
t:=t+x;
end;
writeln(f2,t);
close(f1);
close(f2);
end.
30 tháng 12 2020
uses crt;
var a,t,dem:integer;
begin
clrscr;
t:=0;
dem:=0;
repeat
write('Nhap a='); readln(a);
if (a mod 2=0) and (a mod 3=0) then
begin
t:=t+a;
dem:=dem+1;
end;
until a=0;
writeln('Trung binh cong cua cac so chia het cho 3 va 2 la: ',t/dem:4:2);
readln;
end.
AV
19 tháng 2 2022
uses crt;
var a:array[1..9,1..10] of integer;
m,n,j,i:longint;
begin
clrscr;
for i:=1 to 9 do
for j:=1 to 10 do
begin
inc(m);
a[i,j]:=m;
end;
writeln('mang vua nhap: ');
for i:=1 to 9 do
begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln;
end;
readln;
end.
Mk đã giải đc r nên mk đăng lên cho bn nào cần nè.
11 tháng 10 2021
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln(dem+1);
readln;
end.