Program tính_chia;
Uses crt;
Var i, n, s, a: integer;
Begin
Write('Nhap so n: '); readln(n);
s:=1;
For i:=1 to n do s:=s*i;
a:=0;
For i:=1 to n do a:=a+i;
Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);
readln;
End.
Program tính_chia;
Uses crt;
Var i, n, s, a: integer;
Begin
Write('Nhap so n: '); readln(n);
s:=1;
For i:=1 to n do s:=s*i;
a:=0;
For i:=1 to n do a:=a+i;
Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);
readln;
End.
CÓ BẠN NÀO GIỎI MÔN NÀY K Ạ GIÚP MIK VỚI MIK CẦN GẤP LẮM Ạ Cho hai biến a,b, có kiểu dữ liệu số nguyên. Em hãy viết chương trình Pascal thực hiện các yêu cầu sau: a) Khai báo hai biến a,b. b) Nhập giá trị của hai biến a,b từ bàn phím. c) In kết quả tổng của a,b ra màn hình.
cho biệt phạm vi giá trị của ngôn ngữ lập trình pascal ?
các bạn giải ngay cho mik vs mik cần gấp
Hãy viết chương trình nhập ba số dương a, b và c từ bàn phím, kiểm tra và in kết quả ra màn hình kiểm tra ba số đó có thể là độ dài ba cạnh của một tam giác hay không?
Ai biết giúp với !!! Cần gấp gấp gấp lắm
Các bạn ơi, có ai biết một nhóm về Tin Học nào đó trên FB hoặc một diễn đàn Tin Học nào cho mình xin link với. Hiện tại mình đang có một thắc mắc liên quan đến Tin Học mà e rằng sẽ không hỏi được trên HOC24 nên mình cần sự trợ giúp gấp của những người khác trên đó. Cảm ơn các bạn nhiềuuu !!!
Ai có acc bang bang pro ko chjoi7 nữa ko nếu có thì cho mik chơi chun vs!!!! Ai cho thì mik sẽ bit ơn bn ấy rất nhìu!!!!!!!! > <
Có ai biết làm ko ạ Làm hộ Mình đang cần gấp 🙏🙏🙏
Viết chương trình nhập họ và tên của 1 người và tinh năm sinh của người đó biết người đó 13 tuổi
Giup mink vs ạ!mink cần gấp nhé!cảm ơn mọi người ^_^
Giúp em câu này với