Viết chương trình pascal tính tích các số lẻ

• anna0608
• Chưa có nhóm

• Trả lời

  0

• Điểm

  297

• Cảm ơn

  0

• Tin Học
• Lớp 8
• 10 điểm
• anna0608 - 22:06:43 22/05/2020

• Hỏi chi tiết
• Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!

TRẢ LỜI

• Datdoan03
• Chưa có nhóm

• Trả lời

  873

• Điểm

  24096

• Cảm ơn

  620

program kiemtra;

uses crt;

var N,i:integer;

      T:longint;

begin clrscr;

   write['Nhap so N: ']; readln[N];

   T:=0;

   for i:=1 to N do

   If N mod 20 then T:=T*1;

   write['Tich la: ',S];

readln;

end.

Học tốt!

Hãy giúp mọi người biết câu trả lời này thế nào?

star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star

5

star star star star star

2 vote

• • Datdoan03
  • Chưa có nhóm
  • Trả lời

    873

  • Điểm

    24096

  • Cảm ơn

    620

  cho m câu tlnt nha!

• tmdc2005
• Chưa có nhóm

• Trả lời

  712

• Điểm

  6865

• Cảm ơn

  404

• tmdc2005
• 22/05/2020

uses crt;

var i,n,p:integer;

      a:array[1..1000] of integer;

begin

clrscr;

write['n='];readln[n];

for i:=1 to n do

begin

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

end;

begin

p:=a[i];

for i:=1 to n do

if a[i] mod  2 0 then

p:=p*a[i];

end;

writeln['p=',p];

readln; 

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star

5

star star star star star

1 vote