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.

à nó có updates kìa, bạn updates đi

bạn thử vào microsoft store xem

Câu 1: 

const fi='dulieu.dat';

fo='thaythe.out';

var f1,f2:text;

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

n,d,i,vt:integer;

begin

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

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

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

readln(f1,a[n]);

end;

for i:=1 to n do 

  begin

d:=length(a[i]);

vt:=pos('anh',a[i]);

while vt<>0 do 

  begin

delete(a[i],vt,3);

insert('em',a[i],vt);

vt:=pos('anh',a[i]);

end;

end;

for i:=1 to n do 

  writeln(f2,a[i]);

close(f1);

close(f2);

end.

Câu 2: 

uses crt;

const fi='mang.inp';

fo='sapxep.out';

var f1,f2:text;

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

i,n,tam,j:integer;

begin

clrscr;

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

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

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  write(f1,a[i]:4);

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(f2,a[i]:4);

close(f1);

close(f2);

end.

12 tháng 12 2021

3:

#include <bits/stdc++.h>

using namespace std;

double x,y;

int main()

{

cin>>x>>y;

cout<<fixed<<setprecision(2)<<sqrt(x*x+y*y);

return 0;

}

Bn ơi bn viết r chụp lên đc k ạ ? Mik k định dạng đc ý

uses crt;

const fi='baitap.txt';

var f1:text;

x,y:integer;

begin

clrscr;

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

readln(f1,x,y);

writeln(sqrt(x*x+y*y):4:2);

close(f1);

readln;

end.

26 tháng 2 2021

Program Hoc24;

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

d,i,n,x: integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

write('Nhap so can tim: '); readln(x);

d:=0;

for i:=1 to n do if a[i]=x then d:=d+1;

if d>0 then write('Co so can tim trong day ban dau') else write('Khong co so can tim trong day ban dau');

readln

end.

uses crt;

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

n,i,x,kt:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

write('Nhap so can tim: '); readln(x);

kt:=0;

for i:=1 to n do 

  if a[i]=x then kt:=1;

if kt=0 then writeln(x,' khong co trong day')

else writeln(x,' co trong day');

readln;

end.

17 tháng 12 2021

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

long long a,b,dem,i;

int main()

{

cin>>a>>b;

dem=0;

for (i=a; i<=b; i++)

if (i%2==0) dem++;

cout<<dem;

return 0;

}