tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны три неравных числа, вывести
Даны три неравных числа, вывести меньшее из них(программа).
popovArtem1156465156
3 25.08.2019 10:40
1
Ответы
maksimtihonov34
05.10.2020 18:37
Var
a,m:real;
Begin
Write('a = ');
ReadLn(m);
Write('b = ');
ReadLn(a);
if a<m then m:=a;
Write('c = ');
ReadLn(a);
if a<m then m:=a;
WriteLn('Меньшее из данных чисел: ',m);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
katytucan1
22.05.2020 20:30
В летнем лагере отдыхало 85 семиклассник(-ов, -а). 7 из них не любят компьютерные игры. 54 семиклассник(-а, -ов) предпочита(-ют, -ет) квесты, 62 — симуляторы. Сколько...
linaangel20012
23.05.2020 09:16
Составить программу для вывода на экран квадратов чисел второго десятка ряда натуральных чисел. Через for. В (пискале)...
upsbeats
23.05.2020 09:09
У исполнителя Сигма две команды, которым присвоены номера: 1 прибавь 1; 2 раздели на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Сигма увеличивает...
bettycooper
21.09.2019 11:10
Чему будут равны значения переменных a,b, c, x после выполнения алгоритма, если при вводе их значения равны a=10, b=7, c=12? ввод a,b,c x: =a*b-c a: =2 b: =х+a c: =b/c...
dayn915
21.09.2019 11:10
Вчетырёхзначном числе определить сколько в нём нулевых цифр, использовать паскаль...
ангилино
21.09.2019 11:10
Среди трехзначных чисел найти все числа,средняя цифра которых делится без остатка на сумму крайних цифр...
Данилкамастре
17.06.2019 05:30
Зашивровать текст,записанный с букв и знаков препинания, след. образом: заменить каждую букву непосредственно следующей за ней по алфавиту (буква я заменяется на а...
topovychuvak
30.09.2019 21:40
Яз проспрягать 10 глаголов в present simple, present continuous, present perfect, present perfect continuous....
kisel2014
30.09.2019 21:40
Вставьте пропущенные буквы. под сне.. на ночь спрятала ря..чика . а медведь уже с осени залё.. в дом...
avanesyan20011
30.09.2019 21:40
Тест по . 1. a) match the words to make phrases. 1. to treat 2. to do , 3. to take 4. to spend 5. to repair a)sports b)animals c) holidays d)ships e)place b) complete...
Популярные вопросы
Тендеуди шешиндер отиниш комектесиниздерши тезирек керек болып тур...
3
выбирать решения уравнений и неравенств при дополнительных условиях(например,найти...
2
Яке біологічне значення процесу дихання...
2
8. Табыңыз:А) 1 км-дің 7%-ынВ) 100 м-дің 70%-ын...
2
1.Какие бывают двигательные реакции растений? 2.Что такое тропизмы?3.Что...
3
Упражнение 301. От существительных образуйте и запишат однокоренные...
3
Как стать шире в бедрах? какие есть поделитесь)...
2
9 тап Веб-дизайнерлер кәсіпорынды не арқылы таныстырады? 2.Болашақта...
1
Ресей Айгүн шартында қандай мәселелер шешіп алды?...
1
Рассказ о трёх любимых животных на английском языке с переводом...
3
a,m:real;
Begin
Write('a = ');
ReadLn(m);
Write('b = ');
ReadLn(a);
if a<m then m:=a;
Write('c = ');
ReadLn(a);
if a<m then m:=a;
WriteLn('Меньшее из данных чисел: ',m);
End.