Ответы и объяснения

2013-12-09T09:54:13+00:00


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.
вот 3, а 2 я не знаю как сделать, может поймёшь
Скрины работы программы прикрепить?
давай
а хотя сек, я щас перепишу программу
короч 1 не правильная, правильная только 3. Я тебя предупреждал что мы не проходили эти прогрессии и без объяснения я не смогу перевести