Viết chương trình Pascal a)Viết chương trình thực hiện các nhiệm vụ sau: -Nhập 4 số a,b,c,d từ bàn phím trong đó a,b là số nguyên;c,d là số thực -Tính tổng(s) cho 4 số a,b,c,d và tính trung bình cộng chó 4 số đó -Thông báo kết quả tính tổng và trung bình cộng lên màn hình b)Viết công thức nhập từ bàn phím 3 số dương a,b,c sau đó kiểm tra 3 số đó có phải 3 cạnh của 1 tam giác không.
1 câu trả lời
Program tbc;
Uses crt;
Var a,b,c:integer;
Begin
Clrscr;
Write('nhap so a:'); readln(a);
Write('nhap so b:'); readln(b);
Write('nhap so c:'); readln(c);
write('nhap so d:'); readln(d);
S:=(a+b+c+d)/4
Write('trung binh cong ba so la',s);
Readln;
End.