vieết ct nhập 3 cạnh của 1 tam giác tính Cv của tam giác đó và in kết quả ra màn hình (trong pt có sử dụng 2 ct con 1 ct con nhập dữ liệu 1 ct con để tính cv)
vieết ct nhập 3 cạnh của 1 tam giác tính Cv của tam giác đó và in kết quả ra màn hình (trong pt có sử dụng 2 ct con 1 ct con nhập dữ liệu 1 ct con để tính cv)
uses crt;
var a,b,c:longint;
Procedure nhap;
begin
write(‘Nhap canh thu 1: ‘);readln(a);
write(‘Nhap canh thu 2: ‘);readln(b);
write(‘Nhap canh thu 3: ‘);readln(c);
end;
function cv(a,b,c:longint):longint;
begin
cv:=a+b+c;
end;
begin
clrscr;
Nhap;
writeln(‘Chu vi: ‘,cv(a,b,c));
readln
end.
uses crt;
var a,b,c: integer;
procedure nhap;
var a,b,c:integer;
begin
write (‘nhap canh thu nhat: ‘); readln (A);
write (‘nhap canh thu hai: ‘); readln (B);
write (‘nhap canh thu ba: ‘); readln (c);
end;
function cv(a,b,c: integer): longint;
begin
cv:=a+b+c;
end;
begin
clrscr;
nhap;
writeln (‘chu vi la: ‘,cv(a,b,c));
readln;
end.