Viết chương trình

[honanh@gmail.com]

[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ích các số chẵn chia hết cho 3 và 5 từ 1 đến 100? làm ơn xin mọi người giúp e với

 

[ka1412]

uses crt;
var n,i:integer;k:longint;
begin
        k := 1;
        for i:=1 to 100 do
        if (i mod 3=0) and (i mod 5=0) and (i mod 2=0)then k:=k*i;
        write(k);
readln
end.

 

[trà nguyễn hữu nghĩa]

uses crt;
var n,i:integer;k:longint;
begin
        k := 1;
        for i:=1 to 100 do
        if (i mod 3=0) and (i mod 5=0) and (i mod 2=0)then k:=k*i;
        write(k);
readln
end.

Tại sao bạn không làm chia hết cho 30 luôn nhỉ.

 

[ka1412]

Tại sao bạn không làm chia hết cho 30 luôn nhỉ.

Mình cũng chả biết nữa =) =) =)