Даны 5 чисел (могут быть и отрицательные и положительные), вывести нечетные

Даны 5 чисел (могут быть и отрицательные и положительные), вывести нечетные числа, которые меньше нуля.

Написать программку Pascal ABC

Задать свой вопрос
1 ответ
Var a,b,c,d,e:integer;
begin
readln(a,b,c,d,e);
if (a mod 2lt;gt;0)and(alt;0) then write(a);
if (b mod 2lt;gt;0)and(blt;0) then write(' ',b);
if (c mod 2lt;gt;0)and(clt;0) then write(' ',c);
if (d mod 2lt;gt;0)and(dlt;0) then write(' ',d);
if (e mod 2lt;gt;0)and(elt;0) then write(' ',e);
end.

Пример:
-15 42 -10 27 -79
-15 -79
Санек Фуратов
После then write(' ',b);
Васька Рахуба
Что в кавычках ?
Тамара Бочоришвили
и в других (с,d,e)
Наталья Романченко
' ' - пробел
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт