a

C

bạn tl câu hỏi của mik mik k cho bạn rồi bạn k hai câu mik tl  

ok hôm

HT

đc hơm mấy bn

lấy link éo đc thoi vít ra đây:<

program baitap2;
uses crt;
Var a, b, c:Bytbe;
begin
  clrscr ;
  write('nhap a:');Readln(a);
  write('nhap b:');Readln(b);
  write('nhap c:');Readln(c);
  if(a=b) and (b=c) then
   writeln('Tam giac la tam giac deu')
  else writeln('Tam giac khong la tam giac deu');
  readln;
end.

program ma_hoa_va_giai_ma;
uses crt;
var s : string;
i,a : integer;
t : char;
BEGIN
clrscr;
repeat
write('Nhap 1 de ma hoa, 2 de giai ma'); readln(a);
if(a<>1) and (a<>2) then writeln('Moi ban nhap lai');
until (a=1) or(a=2);
if a=1 then
begin
write('Nhap xau can ma hoa: '); readln(s);
write('Xau ket qua la: ');
for i:=1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-58) mod 26)+65)) else write(t);
end;
end
else if a=2 then
begin
write('Nhap xau can giai ma: '); readln(s);
write('Xau ket qua la: ');
for i:= 1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-46) mod 26)+65))
else write(t);
end;
end;
readln;
END.

Chúc em học giỏi 

êi giỏi chạy được nhaaa

program 06;
Uses crt;
Var
  T:real
  i;n:integer;
Begin
clrscr;
 write('n=1');Readln(n);
 T:=06
 for i:=1 to n do
  T:=\frac{1}{1}.2+\frac{1}{2}.5+\frac{1}{3}.8+\frac{1}{4}.11
 write('T=06'; T);
 readln;
 end.

( \(\sqrt{x}+3\) )/ ( x + x*\(\sqrt{x}\) )

(sqrt(x)+3)/(x+x*sqrt(x))

var a:array[1..10]of real;

i,n:integer;

begin

readln(n);

for i:=1 to 10 do readln(a[i]);

end.

đúng ra thì tất cả dữ liệu ở trên khong cùng 1 hàng đựt :>

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,nn;

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) if (a[i]%2!=0) cout<<i<<" ";

cout<<endl;

nn=a[1];

for (i=1; i<=n; i++) nn=min(nn,a[i]);

cout<<nn<<endl;

for (i=1; i<=n; i++) if (nn==a[i]) cout<<i<<" ";

return 0;

}

sao không chạy được :<<

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+(n*(n+1))/((n+2)*(n+3));

writeln(s:4:2);

readln;

end.