Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Aaaaaarrrrr55
25.05.2022 14:33 •
Информатика
Имеются данные о количестве полных лет трех призеров спартакиады.напишите программу,выбирающую и выбирающую возраст самого младшего призера.
Ответ:
rje87391
03.07.2020 06:38
program abc;
var a,b,c:integer;
begin
read(a,b,c);
if(a<b)then
begin
if(a<c)then write(a) else
if(b<a)then begin
if(b<c)then write(b) else
if(c<a)then begin
if(b>c)then write(a) ;
end;
end;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
iNNA9078
02.10.2020 20:41
Переведите: 128 бит в кбайты 40 кбайт в биты 40 кбайт в байты 1792 кбайт в мбайты...
настя7208
02.10.2020 20:41
Определить длительность звукового файла который уместится на дискете 3,5 при низком качестве звука: моно,8 битов,8000 измерений в секунду...
мария2095
02.10.2020 20:41
1)1010*11 2)111*11 3)1010*111...
leranik4
19.06.2022 02:46
Постройте таблицу истинности для одного из логических выражений:...
АринаКузьмичева
24.08.2021 17:22
составьте программу в паскале abs. найти произведение чисел от 1 до n. через цикл while и repeat...
Df77
11.01.2023 07:04
(турбо паскаль) : запрашивает мое фамилию имя, фамилию имя друга, выдать фразу кто по списку в журнале раньше. нужно, заранее !...
сехун2
24.08.2020 14:55
Составьте программу, меняющую в слове х все сочетания кар на сочетание акр...
Uzdenova2005jam
21.03.2021 01:45
Как представлять десятичное число 416, 510, 235, 333, 247, 523, в восьмеричной системе счисления...
taisechka
27.12.2022 18:13
Связи между таблицами требуются для: а. Создание отчетов, запросов; b. Для копирования данных; с. Обеспечение целостности данных; d. Для автоматизации создания отчетов....
Joker5855
27.05.2021 18:56
Укажи число в стандартном виде: 7533000 ответ: ⋅...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,b,c:integer;
begin
read(a,b,c);
if(a<b)then
begin
if(a<c)then write(a) else
if(b<a)then begin
if(b<c)then write(b) else
if(c<a)then begin
if(b>c)then write(a) ;
end;
end;
end;
end.