Tin học Pascal

[Lê Thúy Nga]

[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.

Viết chương trình pascal tính tổng các số chính phương nhỏ hơn 5
P/s: Các bác giúp em với mai em kiểm tra 1 tiết rồiiiiiiii

 

[The key of love]

Viết chương trình pascal tính tổng các số chính phương nhỏ hơn 5
P/s: Các bác giúp em với mai em kiểm tra 1 tiết rồiiiiiiii

Var A:Array [1..100] of longint;
i,n,s : longint;
f : text;
Function chinhphuong (n: longint) :boolean;
Begin
If sqr(trunc(sqrt(n))) = n then chinhphuong := True else chinhphuong := False;
End;
Begin
Assign (f,'tong.out');
Rewrite (f);
s :=0;
For i := 1 to 5 do
If chinhphuong (A) = true then s:=s+ A;
Write (f,s);
Close (f);
End.
Em chưa check lại nữa, mong chị đọc và check lại giúp em nha ~~

 

[Trâm Nguyễn Thị Ngọc]

Viết chương trình pascal tính tổng các số chính phương nhỏ hơn 5

Đề là nhỏ hơn 5 thiệt hả bạn

 

[Lục Vân Tiên]

Viết chương trình pascal tính tổng các số chính phương nhỏ hơn 5

Các số chính phương nhỏ hơn 5 chỉ có 1 và 4 thôi mà bạn.
Hay ý bạn là số chính phương của các số nhỏ hơn 5?