Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
sereja65
21.11.2022 23:56 •
Информатика
Имеются данные о количестве полных лет трех призеров спартакиады.напишите программу,выбирающую и выбирающую возраст самого младшего призера.
Показать ответ
Ответ:
конфетка03031
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 оценок)
Популярные вопросы: Информатика
EkimovaVlada
23.12.2020 04:44
Дан код с номером. Определи, какой это символ: управляющий или изображаемый. Код с номером 97....
ника2552
08.05.2023 23:10
Дано натуральное число n. Вычислить 31+32+…...+3n...
heni2001
24.07.2020 11:20
Как сделать теперь без массива (паскале)? var nm: array of integer; j,l: integer; begin nm: = new integer[3](random(20),random(20),random(20)); writeln( nm[0] = , nm[0]); writeln(...
поать
29.07.2022 17:51
Сколько бит информации несет в себе сообщение,что старостой назначен один из 16 студентов группы?...
CrowOnix
30.04.2020 12:52
Декодировать изображение и найти объём видеопамяти. дано: разрешение: 8х12, глубина цвета 1 бит. код: 1038381010fe101028444400...
naumovvalera96
07.06.2020 15:16
Какие числа можно получить при вычислении выражения x mod 3 ?...
inkakanchiyp0706d
07.06.2020 15:16
Примеры технических устройств, в которых звук хранится и воспроизводится в аналоговой форме...
masha28122812
07.08.2020 15:45
Сделать математическую постановку: Рассчитать количество досок для постройки веранды садового домика. Пример прикреплён....
прииииииип
21.03.2022 05:22
Реши неравенство 5a11 3....
Диана05005
18.02.2023 20:11
ЖАз ы л ы млетін бойынша «Қос жазба» күнделігін толтыр. Түсіндір.6-тапсырма. МәтінҮзіндіТүсініктеме ұлы отан соғысы ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.