program ba_so_a_b_c;

uses crt;

var a, b, c, sodu, binhphuong, max, tong, s: real;

begin

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

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

write('nhap so thu ba c: '); readln(c);

s:=a+b+c;

writeln('tong bao so a b c la: ',s);

binhphuong:=a*a;

tong:=b+c;

sodu:=binhphuong mod tong;

writeln('so du can tim la: ',sodu:2:2);

max:=a;   

if max<b then max:=b;

if max<c then max:=c;
writeln('So lon nhat trong 3 so la: ', max:0:4); 

readln;
end.

program tinh_tich;

use crt;

var tich, i :integer;

begin

writeln('-------------nguyen mit hot boy------------------------');

tich:=1; 

for i:=1 to 2013 do 

if (i mod 2<>0) then tich:=tich*i;

if i>2013 then writeln('tich can tim la: ',tich);

readln;

end.

program kiem_tra_so_nguyen

uses crt;

var i, n : integer;

begin

clrscr;

write('nhap vao mot so de kiem tra : '); readln(n);

if (n mod i <>o) then writeln('so do la so le !') esle writeln('so do la so chan');

if n<=1 then writeln('nhap lai so khac') else

begin

i:=2;

while (n mod i <>0) do i:=i+1;

if (i=n) then writeln('day phai la so nguyen to!')

else writeln('day khong phai la so nguyen to!');

end;

t:=0;
for j:=1 to n-1 do
if (n mod i) =0 then t:=t+j;
if (n=t) then write('n la so hoan hao');

readln;

program kiem_tra_so_nguyen;

uses crt;

var i, n : integer;

begin

clrscr;

write('nhap vao mot so de kiem tra : '); readln(n);

if n<=1 then writeln('nhap lai so khac') else

begin

i:=2;

while (n mod i <>0) do i:=i+1;

if (i=n) then writeln('day phai la so nguyen to!')

else writeln('day khong phai la so nguyen to!');

end;

readln;

2025-08-22 09:53

xin chào bạn dến với wapsite THAOMEO

wap tien ich
game miễn phí
hinh dep
tim va tai nhac
phần mền hay

tiện ích

phòng chát
thu gian

helo

Log in

The Soda Pop