C клавиатуры ввести три целых числа, отыскать:а) Количество отрицательных нечетных чисел

C клавиатуры ввести три целых числа, найти:а) Количество отрицательных нечетных чисел в) Наибольшее трехзначное четное положительное число или найти, что такого числа нет

Задать свой вопрос
Злата Кавалеренко
Массивы и циклы разрешено использовать?
1 ответ

program raf105;

var a:array[1..3] of integer;

i,za,zb:integer;

begin

write('Введите три числа: ');

readln(a[1],a[2],a[3]);

for i:=1 to 3 do

begin

 if (a[i]lt;0) and ((a[i] mod 2) lt;gt; 0)

   then za:= za+1

end;

for i:=1 to 3 do

begin

 if (a[i]gt;99) and (a[i]lt;1000) and ((a[i] mod 2) = 0) and (a[i]gt;zb)

   then zb:=a[i];

end;

writeln('а) ',za);

if zblt;gt;0  

 then writeln('в) ',zb)

 else writeln('в) Не найдено');

end.

Программка написана на языке PascalABC.NET

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт