Tin học Mọi người làm giúp e với ạ.

[hoanglongredhood71]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mọi người làm giúp em nhanh nhanh với, gần kt r (

 

[_. ._ _..]

Nếu bạn cần thì đây là code của mình (Vì lâu lắm mik mới quay lại Pascal nên có sai sót thì bạn thông cảm nha)

uses crt;
var n, s, i: integer;
begin
   writeln('nhap so nguyen n ');
   read(n);
   s := 0;
   for i := 1 to n do s := s + i^3 ;
   writeln(' s = ', Sqrt( s));
   readln;
end.

 

[hoanglongredhood71]

Nếu bạn cần thì đây là code của mình (Vì lâu lắm mik mới quay lại Pascal nên có sai sót thì bạn thông cảm nha)

uses crt;
var n, s, i: integer;
begin
   writeln('nhap so nguyen n ');
   read(n);
   s := 0;
   for i := 1 to n do s := s + i^3 ;
   writeln(' s = ', Sqrt( s));
   readln;
end.

thank bạn nhìu nha :3