uses crt;
var a,b,bcnn:integer;
{----------------------chuong-trinh-con----------------------------}
function ucln(var n,m:integer):integer;
var i:integer;
begin
ucln:=1;
for i:=1 to n*m do
if (n mod i=0) and (m mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
{---------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
bcnn:=a*b div ucln(a,b);
writeln('Boi chung nho nhat=',bcnn);
readln;
end.

uses crt;

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

n,i,t,dem,dem1:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('Tong=',t);

dem:=0;

dem1:=0;

for i:=1 to n do

begin

if a[i]>0 then dem:=dem+1;

if a[i]<0 then dem1:=dem1+1;

end;

writeln('So luong phan tu duong la: ',dem);

writeln('So luong phan tu am la: ',dem1);

readln;

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=50);

for i:=1 to n do

begin

repeat

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

until a[i]<=100;

end;

t:=0;

for i:=1 to n do

if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

readln;

end.

kích thước bao nhiêu vậy bạn?

Program HOC24;

const fi='DULIEU.TXT';

var f: text;

a,b,c,max,d,e: integer;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,a,b,c,d,e);

close(f);

end;

begin

ip;

max:=0;

if max<a then max:=a;

if max<b then max:=b;

if max<c then max:=c;

if max<d then max:=d;

if max<e then max:=e;

write(max);

readln

end.

cho mình hỏi PROCEDURE IP có nghĩa là gì và tác dụng của nó là gì thế ạ?

Bài 1:

assign(f2,'dulieu.txt');

reset(f2);

readln(f2,T,S);

close(f2);

Bài 2:

assign(f1,'dau.txt');

reset(f1);

read(f1,a,b);

close(f1);

em cam on