16.05.2019, 16:30 | #1 (permalink) |
Новичок
Регистрация: 16.05.2019
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите пожалуйста. Срочно!!!
Условие задачи: Определить наименьшее из чисел, введенных с клавиатуры. Количество чисел неизвестно, а их запрос с клавиатуры прекращается, если введено число "0". Нужно решить в Паскале. |
16.05.2019, 16:30 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Люди интересуются одним и тем же, зачастую создают аналогичные темы Помогите срочно!! Пожалуйста Помогите пожалуйста!Срочно! помогите, пожалуйста, срочно Помогите пожалуйста срочно! |
16.05.2019, 16:52 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var a,min:integer; Begin Write('First number: '); Readln(min); repeat Write('Next number: '); Readln(a); if a<min then min:=a; until a=0; Writeln('Minimal number is ',min); Readln End. |
|
16.05.2019, 17:16 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|