Напишите для паскаля,пожалуйста. С клавиатуры вводятся 17 чисел. Найти произведение положительных чисел не делящихся на 17. (Мы прошли только до цикла с постусловием)
Answers & Comments
sarov4ikProgram chik; var k,i,s,a:integer; begin s:=1;k:=0; for i:=1 to 17 do begin read(a); if (a mod 17<>0)then begin k:=1; s:=s*i; end; end; if k=1 then write(s)else write(0); end. вроде так
0 votes Thanks 0
emblerik
Var p, i, t : integer; begin p := 1; i := 1; repeat read (t); if t mod 17 <> 0 then p := p * t; i := i + 1; until i > 17; write (p); end.
Answers & Comments
var k,i,s,a:integer;
begin
s:=1;k:=0;
for i:=1 to 17 do
begin
read(a);
if (a mod 17<>0)then begin
k:=1;
s:=s*i;
end;
end;
if k=1 then write(s)else write(0);
end.
вроде так
p, i, t : integer;
begin
p := 1;
i := 1;
repeat
read (t);
if t mod 17 <> 0 then p := p * t;
i := i + 1;
until i > 17;
write (p);
end.