Выведите на печать все нечётные элементы таблицы в Паскале 1 2 3 4 5 6 7 3 -4 0 2 -7 4 0
Выведите на печать все нечётные элементы таблицы в Паскале
1 2 3 4 5 6 7
3 -4 0 2 -7 4 0
Гость
Ответ(ы) на вопрос:
Гостьvar i: integer;
begin
for i:=0 to 254 do
begin
if i mod 2=0 then break else write(ord(i));
end;
readln;
readln
end.
Не нашли ответ?
Похожие вопросы