Срочно!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Question

Срочно!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

---

---

---

Answer 1

3) Вывести числа....
Var i:integer;
Begin
i:=10000;
while (i<99999) do begin<br>if (i mod 194 = 0) then begin write(' ',i); i:=i+194 end
else i:=i+1;
    end;
end.

---

Comments

щас допишу остальные

---

ага)

---

вот 3, а 2 я не знаю как сделать, может поймёшь

---

Скрины работы программы прикрепить?

---

давай

---

а хотя сек, я щас перепишу программу

---

короч 1 не правильная, правильная только 3. Я тебя предупреждал что мы не проходили эти прогрессии и без объяснения я не смогу перевести