chắc là cô bận nên không biết nếu bạn muốn đổi tên thì bạn có thể chat rieng cho cô và tham gia vào lớp đổi tên của cô r đưa tên mà bạn muốn đổi nhé

bạn vào lại phần lớp học đi xem bạn vào lớp thành công hay chưa nhé !

ok

um nhà mít trồng anh thái

hi nha mk tên là ngọc 6a. muốn hỏi nội

Program HOC24;

var n,i: integer;

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

procedure out;

begin

assign(f,'KQ.txt');

rewrite(f);

for i:=1 to n do write(f,a[i],' ');

close(f);

end;

begin

readln(n);

for i:=1 to n do read(a[i]);

out;

readln

end.

k co trinhf

Đâu bn

ủa z thì học đi bn

quá dễ

bài 1:

uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a=0 then
if b=0 then writeln('phuong trinh co vo so nghiem')
else writeln('phuong trinh vo nghiem')
else writeln('phuong trinh co nghiem x=',-b/a:4:2);
readln;
end.

bài 2:

uses crt;
var x,y,a,b,ucln:integer;
{---------------------------------------------------------}
procedure nhap(var n:integer);
begin
write('nhap mot so nguyen bat ky='); readln(n);
end;
{---------------------------------------------------------}
procedure rutgon(var a,b:integer);
var x,y,ucln:integer;
begin
x:=a;
y:=b;
while x<>y do
begin
if x>y then x:=x-y
else y:=y-x;
end;
ucln:=x;
if ucln<>1 then
begin
a:=a div ucln;
b:=b div ucln;
writeln('phan so toi gian la: ',a,'/',b);
end
else writeln('phan so toi gian la: ',a,'/',b);
end;
{----------------------------------------------------------}
begin
clrscr;
nhap(a);
nhap(b);
rutgon(a,b);
readln;
end.

rút ko kịp

Lời giải :

program hotrotinhoc ;

cont a ='sn.inp' ;

b ='sn.out' ;

var

f: text ;

i,n,S,T : integer ;

begin

assign(a,f);

reset(f);

read(f,n);

close(f);

assign(b,f);

rewrite(f);

S:=0;

for i:=1 to n do

if i mod 2= 0 then S:=S+i;

writeln(f,'Tong cac so chan la',S);

for i:= 1 to n do

if i mod 2=1 then T:=T+i ;

writeln(f,'Tong cac so chan la ',T);

close(f);

end.