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

Безотлагательно!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Задать свой вопрос
1 ответ


3) Вывести числа....
Var i:integer;
Begin
i:=10000;
while (ilt;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. Я тебя предуведомлял что мы не проходили эти прогрессии и без разъяснения я не смогу перевести
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт