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.
![](https://rs.olm.vn/images/avt/0.png?1311)
Program chiaqua;
Uses crt;
Var n,i,a:Longint;
S:INT64;
Begin
Clrscr;
Write('So em thieu nhi = ');
Readln(n);
S:=1; a:=1;
For i:=2 to n do
Begin
a:=a+3;
S:=S+a;
End;
Write('So goi qua chuan bi = ',S); Readln;
![](https://rs.olm.vn/images/avt/0.png?1311)
Bạn ơi, Pascal ko hỗ trợ di chuyển bằng chuột máy tính(trừ khi dùng Graph, nhưng mình đoán 99% các mod trên đây ko ai biết dùng Graph đâu)
Nếu dùng WASD thì có thể, nhưng nếu vậy thì bài này nên đưa lên bài lớp 11 thì hơn
![](https://rs.olm.vn/images/avt/0.png?1311)
thiếu điều kiện:
hoàn chỉnh là thế này
if c^2=a^2+b^2 or a^2=c^2+b^ or b^2=a^2+c^2 then writeln('tam giac do co mot goc vuong') else writeln('tam giac do khong co goc vuong')
còn thiếu:
if sqr(a)=sqr(b)+sqr(c) or sqr(b)=sqr(a)+sqr(c) or sqr(c)=sqr(a)+sqr(b) then writeln('vuong') else writeln('khong vuong');