K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a>0) and (b>0) then writeln(a*b)

else writeln('Nhap lai');

readln;

end.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a>b) then writeln(b,' ',a)

else writeln(a,' ',b);

readln;

end.

26 tháng 12 2020

Uses crt;

Var a,b: real;

Begin

Clrscr;

Writeln('Nhap a,b');

Realn(a,b);

If (a>0) and (b>0) then writeln('Tich cua a,b la:', a*b)

else writeln('Yeu cau nhap lai');

Readln;

End.

26 tháng 12 2020

Cảm ơn ạ

19 tháng 12 2021

if (b%2==0) cout<<"b la so chan";

if (b%2==1) cout<<"b la so le";

19 tháng 12 2021

if (b%2==0) cout<<"b la so chan";

if (b%2==1) cout<<"b la so le";

17 tháng 12 2021

if (b%2==0) cout<<"b la so chan";

else cout<<"b la so le";

16 tháng 12 2016

PROGRAM DIEN TICH TAM GIAC;
{Nhap vao do dai 3 canh tam giac. Tinh dien tich tam giac ay}
VAR a,b,c,p,S:real;kt:boolean;{kt: kiem tra}
BEGIN
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
Write('Nhap c: ');readln(c);
Writeln;
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b);
If kt=true then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich S= ',S:6:2);
end
Else writeln(,'Khong thuc hien vi day khong la do dai 3 canh tam giac');
Readln
END.

* Xin chú ý với bạn rằng: Trước khi tính diện tích tam giác, ta phải kiểm tra xem ba độ dài a, b, c có phải là ba cạnh của tam giác hay không, cho nên cần phải có biến kt:boolean;{kt: kiem tra}

kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b)

Chúc bạn học tốt!

16 tháng 12 2016

IK K HIỂU CHO Lắm, bn có thể giải rõ hơn khôg ?

13 tháng 11 2021

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

readln(a,b,c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then

begin

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Chu vi la: ',p*2:4:2);

writeln('Dien tich la: ',s:4:2);

end

else writeln('a,b,c khong la ba canh cua tam giac');

readln;

end.

S lm giống mà ko ra 

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if a>b then writeln(a)

else writeln(b);

readln;

end.