Написать программу в паскале, используя repeat until . Задача: Дана непустая - №1104620

Написать программу в паскале, используя repeat until . Задача: Дана непустая последовательность, оканчивающаяся нулем. Найти в ней минимальную цифру.
- Предмет:
  Информатика
- Автор:
  ardenqibk
- 6 лет назад

Ответы 1

var x,min:integer;beginmin:=999999;repeatreadln(x);if (min>x) and (x<>0) then min:=x;until x=0;writeln(min);end.
- Автор:
  giannigfsm
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

купили несколько блокнотов по 30 рублей и общих тетрадей по 40 рублей,заплатив за всю покупку 520 рублей.Сколько купили блокнотов и сколько тетрадей, если известно, что тетрадей купили больше, чем блокнотов?
- Предмет:
  Алгебра
- Автор:
  good71
- 6 лет назад
- Ответов:
  
  1
- Смотреть
Сколько Молекул Содержит 2.5 моль воды Н2О 66г углекислого газа СО2
- Предмет:
  Химия
- Автор:
  anikapittman
- 6 лет назад
- Ответов:
  
  1
- Смотреть
Реклама мобильного телефона на англ языке! Срочно! Завтра семестровая
- Предмет:
  Английский язык
- Автор:
  amigogonzalez
- 6 лет назад
- Ответов:
  
  1
- Смотреть
Вопрос 4(Написать два предложения с омографами) Вопрос 5(Написать два предложения с антонимами) Вопрос 6(Написать 3 предложения с омофонами)
- Предмет:
  Русский язык
- Автор:
  julienpoole
- 6 лет назад
- Ответов:
  
  1
- Смотреть

How much to ban the user?

1 hour 1 day 100 years