1. Информатика
  2. Составьте программу на Паскале

Составьте программу на Паскале
На вход программы поступает неизвестное количество натуральных чисел, ввод заканчивается нулём. Найти минимальное из введённых нечётных чисел

2006215 2006215    1   25.04.2020 21:14    1

Ответы
Uoywex Uoywex  13.10.2020 21:21

var a, min:integer;

begin

writeln('Введите числа (цифра 0 - выход из программы)');

readln(a);

min:= a;

while(a <> 0) do begin

 if (((a mod 2) = 1) and (min > a)) then

   min:= a;

readln(a);

end;

writeln('Минимальное нечетное число: ', min);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sanie777velieva sanie777velieva  28.04.2020 13:19
решить задачу Для приготовления компота маме нужно налить в 5-литровую кастрюли 4 литра воды. Как маме справиться с этой задачей, если у мамы есть кроме этой кастрюли ещё...
girlmarta girlmarta  28.04.2020 13:19
Составьте программу, сортирующую целочисленный массив по убыванию методом прямого включения вставками). P.S.ПАСКАЛЬ! Желательно скриншот протестированной программы очень...
gjhjcznrj gjhjcznrj  01.04.2020 18:40
Написать программу на Paython) 11. Складіть програму, яка б у відповідь на введену оцінку з інформатики виводила на екран наступний текст: якщо оцінка 10-12, то «молодець,...
марина11110 марина11110  18.09.2019 06:02
14. у трёх маляров был брат иван, а у ивана братьев не было. как такое может быть? 15. представь себе, что ты машинист, ведущий пассажирский поезд из москвы в санкт-петербург....
Dima1208 Dima1208  09.04.2019 21:14
Нужно выполнить в access создание однотабличной бд «библиотека» 1. создайте основную таблицу (не менее 10 записей), содержащую сведения: название книги, автор, год издания,...
КитиКэт13 КитиКэт13  08.10.2019 00:00
Определить високосный год или нет определить, является ли год, который вы ввели, високосным или невисокосным. високосные года делятся нацело на 4. однако из этого правила...
Юлия19112006 Юлия19112006  09.04.2020 13:28
ответить на во как связана кровь и лимфа? 2) чем отличается прививка от вакцины? 3) как вырабатывается иммунитет очень нужно!...
Sofia1111111111811 Sofia1111111111811  09.04.2020 13:28
Reprendre la chronologie logique ЗА УСТАНОВКУ ХРОНОЛОГИЧЕСКОЙ ПОСЛЕДОВАТЕЛЬНОСТИ​...
egortupi egortupi  09.04.2020 13:28
Умаляю Написать рассказ (не менее 12 предложений) на тему Technological progress ​...
elyakhina1976 elyakhina1976  09.04.2020 13:28
Решите уравнения: образец 1,1x-0,6x=2,5 2)6,75x = 2 1/4 x - 9 0,5x=2,5 3)16 -9,5 y = 3 y +21 x=2,5:0,5 4)1 1/4 y + 7,5 = 5 y x=5 5)6 y - 2,8 = 2,5y 6)0,5x - 7 = - 2/3x...

Популярные вопросы