tin học 11 viết chương trình tính tổng

[laothinga]

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

các bạn giúp mình bài này nhá mai mình kiểm tra học kì rồi
viết chương trình tính tổng sau
S=5+10+15+20+....+n (vs n nguyên nhập từ bàn phím)
Các bạn viét chi tiết cho mình nhá cảm ơn nhiều

 

[stardustdragon]

Uses crt;
var S,i,n:longint;
Begin 
 Clrscr;
 Write('Nhap so n = ');readln(n);
 S:=0;
 For i:=5 to n do
   begin
     if i mod 5 = 0 then S:=S+i;
   end;
  Write('Tong can tim la : ', S);
  Readln
End.

Thanks ho cai

 

[laothinga]

Uses crt;
var S,i,n:longint;
Begin 
 Clrscr;
 Write('Nhap so n = ');readln(n);
 S:=0;
 For i:=5 to n do
   begin
     if i mod 5 = 0 then S:=S+i;
   end;
  Write('Tong can tim la : ', S);
  Readln
End.

Thanks ho cai

sao lắm lần begin thế???

 

[stardustdragon]

sao lắm lần begin thế???

Ôi trời, học pascal mà ko biết à
Mỗi cặp Begin...End ( mình viết thẳng dòng cho dễ nhìn) là 1 đoạn chương trình nhỏ
VD:
Sau câu lệnh for i:=5 to ............. la 1 đoạn chương trình nhỏ ( begin if i mod ..........end
mà pascal thực hiện trong mỗi lần lặp
Đơn giản là với i=5 thi pascal sẽ thực hiện đoạn nhỏ
còn với i=6, i=7 .... thi i mod 5 khác 0 nên câu lệnh Ì không được thực hiện