Question

Viết chương trình nhập vào một số nguyên N từ bàn phím và in ra màn hình tổng các số tự nhiên đầu tiên chia hết cho 5 . ( sử dụng lệnh for ... do).

Answer 1

Uses Crt;

Var

Begin

Clrscr;

write(' Nhap so n ='); readln(n);

For i:= 1 to n do

Begin

write('a[',i,'] ='); readln(a[i]);

end;

For i:= 1 to n do

If a[i] mod 5 then s:=s+a[i];

writeln('Tong cac so =' ,s);

readln

end.

Chúc Bạn Học Tốt

Answer 2

Xin lỗi ở trên mình quên chưa khaai báo :))

Uses Crt;

Var A: array [1..100] of longint;

n, i, s: integer;

Begin

Clrscr;

write(' Nhap so n ='); readln(n);

For i:= 1 to n do

Begin

write('a[',i,'] ='); readln(a[i]);

end;

For i:= 1 to n do

If a[i] mod 5 then s:=s+a[i];

writeln('Tong cac so =' ,s);

readln

end.

Chúc Bạn Học Tốt

Answer 3

lớp 8 chưa học lệnh array nha

theo mình thì dễ hơn

uses crt;

var i,n,s:longint;

begin

clrscr;

write(' nhap n:');readln(n);

s:=0;

for i:=1 to n do

if i mod 5 = 0 then s:=s+i;

writeln(''tong cac so tn chia het cho 5 la',s);

readln;

end.