Напишите для паскаля,пожалуйста.С клавиатуры  вводятся 17 чисел. Отыскать творение

Напишите для паскаля,пожалуйста.
С клавиатуры вводятся 17 чисел. Отыскать произведение положительных чисел не делящихся на 17.
(Мы прошли только до цикла с постусловием)

Задать свой вопрос
2 ответа
Var
  p, i, t : integer;
begin
  p := 1;
  i := 1;
  repeat 
    read (t);
    if t mod 17 lt;gt; 0 then p := p * t;
    i := i + 1;
  until i gt; 17;
write (p);
end.
Program chik;
var k,i,s,a:integer;
begin
s:=1;k:=0;
for i:=1 to 17 do
begin
read(a);
if (a mod 17lt;gt;0)then begin
k:=1;
s:=s*i;
end;
end;
if k=1 then  write(s)else write(0);
end.
вроде так

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт