Viết chương trình:
A) Nhập vào ba số a, b, c sau đó xét xem ba số trên có thỏa mãn ba cạnh của một tam giác hay không.
B) Nhân vào số nguyên a sau đó in ra màn hình số vừa nhập là số chẵn hay lẻ
C)Nhập vào hai số nguyên a và b sau đó in ra màn hình số lớn nhất
HỘ MIK VỚI MỌI NGƯỜI ƠI Σ(⊙▽⊙”)
Viết chương trình: A) Nhập vào ba số a, b, c sau đó xét xem ba số trên có thỏa mãn ba cạnh của một tam giác hay không. B) Nhân vào số nguyên a sau đó
By Skylar
a)program tam_giac;
uses crt;
vả a, b, c: real;
begin
clrscr;
write(‘nhap a, b va c:’);readln(a,b,c);
if (a+b>c) and a+c>b and b+c>a then write(‘a, b, c la 3 canh cua tam giac’)
else writeln(‘a, b, c khong phai la canh cua tam giac’);
readln;
end.
b) program chan_le;
uses crt;
var a: real;
begin
clrscr;
write(‘nhap so a:’);readln(a);
if a mod 2=0 then writeln(a’ chan’)
else writeln(‘a le’);
readln;
end.
c)
program so_lon_nhat;
uses crt;
var a, b: integer;
begin
clrscr;
write(‘nhap a:’);readln(a);
write(‘nhap b:’);readln(b);
if (a>b) then writeln(‘a lon nhat’)
else writeln(‘b lon nhat’);
readln;
end.
#CHUCBANDIEMCAONHA
A)
Program BTT:
Uses crt;
Var a, b, c : Real;
Begin
Clrscr;
Write(‘ Nhap a, b, c: ‘); Readln (a, b, c);
If (a + b > c) and (a + c > b) and (b + c > a) then Write(‘Do la do dai 3 canh cua tam giac’)
Else write (‘Do khong phai la do dai 3 canh cua tam giac’);
Readln;
End.
B)
Program BT;
uses crt;
var a: real;
begin
clrscr;
write(‘Nhap n: ‘);
readln(n);
if n mod 2 = 0 then write(‘n la so chan’)
else (‘n la so le’);
readln;
end.
C)
Program BT;
uses crt;
var a,b: real;
begin
clrscr;
write (‘nhap so’,a,b);
readln (a,b);
if a>b then write (‘ so lon nhat la:’,a)
else write (‘ so lon nhat la:’,b);
readln;
end.