Program bai1;

uses crt;

var a,b,s: longint;

begin

clrscr;

write('nhap so thu nhat ='); readln(a);

write('nhap so thu hai ='); readln(b);

if a > b then writeln('so lon nhat la :' ,a);

if b > a then writeln('so lon nhat la :' ,b);

if a = b then writeln('khong co so nao lon nhat ');

s:=a+b;

writeln('tong cua hai so = ',s);

readln;

end.

program giaipb1;
uses crt;
var a,b:real;
begin
clrscr;
writeln('Chuong Trinh Giai PT bac 1: ax+b=0');
writeln('Nhap a va b'); readln(a,b);
If (a=0) and (b<>0) then writeln('Phuong trinh vo nghiem');
If (a=0) and (b=0) then writeln('Phuong trinh co vo so nghiem');
If (a<>0) and(b<>0) then writeln('Phuong trinh co nghiem x=',(-b)/a:4:2);
readln;
end.

dư 0 

nếu đúng cho mình vài ****Trần Anh

program bai1;

uses crt;

var n: integer;

begin

clrscr;

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

if n mod 2 = 0 then

writeln(n+1) else

writeln(n);

readln;

end.

cậu phải làm ra thì mới được **** chứ !

Program bai1;

uses crt;

var a,b: real;

begin

clrscr;

write('nhap so a ='); readln(a);

write('nhap so b ='); readln(b);

if a > b then writeln('a lon hon b');

if a < b then writeln('a nho hon b');

if a = b then writeln('a bang b ');

readln;

end.

CHTT nha bạn !

Diện tích một viên gạch là 25 x 25 = 625 (cm²)

Diện tích sân gạch đó là 400 x 625 = 250000 (cm²)

250000 = 25 m²

câu 1:

Program So_hoan_hao;
uses crt;
Var S, n, i,j: integer;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do
if i mod j = 0 then
S:=S+j;
if S = 2*i then
write(,' la so hoan chinh');
end;
readln;
end.

Program bai1;

uses crt;

var a,b,s: integer;

begin

clrscr;

write('nhap so a ='); readln(a);

write('nhap so b ='); readln(b);

s:=a+b;

writeln('- tong cua hai so a va b =',s);

if s mod 2 = 0 then writeln('tong la so chan ')

else writeln('- tong la so le ');

readln;

end.