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.
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;
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
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');