Программирование с использованием оператора For (Turbo Pascal)

[Dina 85]

Сообщение от GetMax

Ясное дело. Надо еще описать переменные, ввести k. Еще не плохо было бы написать ошибки, которые у Вас появляются.


А вообще грубить не стоит, иначе так и останетесь со своей не выполненной домашней работой.

а вообще вы еще не знаете как сейчас грубят,я с вами нормально разговариваю

[VIK_aka_TOR]

Сообщение от Dina 85

program aaa;
var n,i:integer;
begin
write('введите количесто элементов последовательности');
readln(n);
for i:=1 to n do
begin
if i mod 2<>0 then
writeln(i);
end;
end.

вы тут берете числа от 1 до n .. если вас это устраивает ... пуусть так и будет... но если сама последовательность вводится с клавы... а не ее верхний диапазон то

program aaa;
var n,i, c:integer;
begin
write('введите количество элементов последовательности');
readln(n);
for i:=1 to n do
begin
readln(c);
if c mod 2<>0 then
writeln('-> ', c);
end;
end.

а то что они по вашим словам не знают... так это у вас взаимное недопонимание...))

[Son Of Pain]

Агрессивный нынче студент пошел, да )