Question

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

Answer 1

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

Answer 2

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

Answer 3

давай

Answer 4

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