Viết chương trình tính tổng các số chia hết cho 3
Mong mn giúp e với e đag gấp lắm ạ

Question

Viết chương trình tính tổng các số chia hết cho 3 Mong mn giúp e với e đag gấp lắm ạ

giangnguyen · Answer

Program tinhtong;

uses crt;

var i, SUM, N : integer; Begin

Clrscr;

Write(‘Nhap N: ‘); Readln(n);

SUM := 0; For i:=1 to N do if (i mod 3 = 0) then SUM:= SUM + i;

Write(‘Tong la: ‘, SUM);

Readln;

End.
chúc bạn học tốt

đánh giá mk 5* nha

truongankim · Answer

program tinhtong;

uses crt;

var A:array[1..100] of integer;

n,i:byte;

t:longint;

begin

clrscr;

write(‘Nhap so luong phan tu: ‘); readln(n);

t:=0;

for i:=1 to n do

begin

write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);

if A[i] mod 2=0 then t:=t+A[i];

end;

write(‘Tong cac so chia het cho 3 la: ‘,t);

readln;

end.