viết chương trình tính tổng bình phương của 1 tới 100
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.
uses crt;
var a: integer;
begin clrscr;
Writeln('Nhap vao do dai canh cua tam giac deu: '); readln(a);
Writeln('Chu vi cua tam giac deu do la: ',a*3);
readln;
end.
Uses crt;
Var n,i: integer;
Begin
Clrscr;
i:=1;
Write('nhap n');
Readln(n);
While i<n do
Begin
If (i mod 2<>0) then write(i:5);
End;
Readln
End.
Mời bạn thử chạy chương trình ra nhé ! Chúc học tốt!!
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do t:=t+i;
write(t);
readln;
end.
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do t:=t+i*i;
write(t);
readln;
end.
Uses crt;
var n: integer;
begin clrscr;
Writeln('Nhap vao so nguyen N: '); readln(n);
readln;
end.
Uses crt;
var i,n: integer;
begin clrscr;
for i:=1 to 100 do n:=n+(i*i);
write(n);
readln;
end.