HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
3.
(x/3+y)-(a+b/8+y)+z
2.
*xác định thuật toán:
input: 2 số nguyên a và b;
output: kết quả so sánh 2 số đó;
*thuật toán:
b1: nếu a> b thì in kết quả ra màn hình "a lớn hơn b".
b2: nếu a< b thì in kết quả ra màn hình " b lớn hơn a",
ngược lại in ra màn hình " hai so bằng nhau".
b3: kết thúc.
1.
b1: nếu a> b thì in kết quả ra màn hình "b nhỏ hơn a".
b2: nếu a< b thì in kết quả ra màn hình " a nhỏ hơn b",
Program bai2;
uses crt;
var a,b: integer;
begin
clrscr;
write('nhap so thu nhat ='); readln(a);
write(' nhap so thu hai ='); readln(b);
writeln('Tong cua 2 so =' ,a+b);
writeln('Hieu cua 2 so =' ,a-b);
writeln('Tich cua 2 so =' , a*b);
readln;
end.
Program bai1;
var a: integer;
write('nhap so a =');
readln(a);
if a mod 2 <>0 then writeln(a , ' la so le ');
var a,b : real;
write('nhap chieu dai='); readln(a);
write('nhap chieu rong ='); readln(b);
writeln('chu vi =',(a+b)*2:4:2);
writeln('dien tich =',a*b:4:2);
var a,b,c: integer;
write('nhap so a ='); readln(a);
write('nhap so b ='); readln(b);
write('nhap so c ='); readln(c);
if (a*a=b*b+c*c) or ( b*b= a*a+c*c) or (c*c= a*a+b*b) then
write(a,'',b,'',c,' la bo so pytago')
else
write(a,'',b,'',c,' khong phai la bo so pytago');
a,
var n : integer;
write('nhap so n ='); readln(n);
if n<=2 then write('so vua nhap vao khong hop le ') else
if n*n=(n-2)*(n-2)+(n-1)*(n-1) then write(n, ' la so pytago')
write(n , 'khong phai l so py ta go');
program bai1;
var a: real;
write('nhap so a= '); readln(a);
writeln('so a la : ',a:6:2);
cái này mới đúng nha :P
var n , i ,s: longint;
for i:= 1 to n do
s:=s+sqrt((i-1)+sqrt(i));
writeln('tong s = ' ,s:4:2);