Tin học Viết chương trình pascal

[Dii Tae]

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

1, Tính S= 1/2^2+1/5^2+1/8^2+......+1/n^2
2, Viết CT tìm max min của a,b,c,d
3, Viết CT tìm các ước của n

 

[caochanh166]

2.
uses crt;
Var a,b,c,d,max,min:integer;
Begin
clrscr;
a:=max;
b:=min;
If b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
If a<min then min:=a;
if c<min then min:=c;
if d<min then min:=d;
Writeln('Max: ',max,' ','Min: ',min);
Readln;
end.

 

[Phan Văn Thế Quân]

các bạn viết sơ đồ cho bạn ý chứ k cần viết code đâu

 

[Phan Văn Thế Quân]

cảm ơn bn

tại mình cũng hỏi nhiều ng mấy bài này mà họ toàn viết code khó dịch lắm

 

[khapyeu10]

Tìm max của a,b,c,d. Đợi mình làm câu 3

 

[khapyeu10]

còn đây là bài tìm ước của n

 

[Dii Tae]

còn đây là bài tìm ước của nView attachment 92013

giup hộ mình câu đầu

 

[Deathheart]

Hướng dẫn: cho i<-2
rồi cứ s:=s+1/(i*i) đến khi nào i>n thì thôi
chưa thì i<-i+1