tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Имеются данные о количестве полных
Имеются данные о количестве полных лет трех призеров спартакиады.напишите программу,выбирающую и выбирающую возраст самого младшего призера.
annet150586
3 02.06.2019 08:30
6
Ответы
helen15111983
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
voytyukk
19.10.2020 12:00
быстрее время не воробей, вылетит не поймаешь...
anastasiaperova
19.10.2020 12:00
(Паскаль) Дано дійсні додатні числа a,b,c,d. З`ясувати, чи можливо прямокутник зі сторонами a,b вмістити усередині прямокутника зі сторонами c,d, щоб кожна зі сторін...
ulaborodina57
03.11.2020 23:06
10 актеров пришли на кастинг фильма.На роль главного героя нужен был актер с бородой не менее 9 и не более 11 см.Ввести длину бороды 10 актеров с клавиатуры и узнать...
annar2001
03.11.2020 23:07
Перевести в десятичную систему счисления:10011²+101²...
Katiadimova3
03.11.2020 23:08
Що таке розширення імені файла? На що воно вказує?Ваша відповідь...
Миша3111
26.09.2019 01:30
Ввести строку символов st1( саша шла по шоссе) вывести на экран количество введенных слов(пробелов)...
keksikgovad
26.09.2019 01:30
Pascal abc в магазине пройдет грандиозная акция, будут вручены подарки двум победителям-мужчине и женщине, которые сделают самую большую покупку среди своего пола....
кирюха6677
26.09.2019 01:30
Для какого из имён истинно высказывание: (первая буква согласная) и не (четвертая буква гласная)? а)виолетта в) тамара б)михаил г) тимур...
ALESHABELAVIN
26.09.2019 01:30
Pascal в списке сотрудников фирмы (мужчин) заданы стаж их работы и семейное положение. определить холостого работника с наименьшим стажем работы....
PrincessaMumia
20.08.2019 10:30
Решить . у исполнителя вычислитель две команды, которым присвоены номера: 1) умножь на 3 2)прибавь 1 первая из них увеличивает число на экране в 3 раза, вторая...
Популярные вопросы
Найти координаты точек пересечения графиков функции у=х+2 и...
2
Какого литкратурноного кота тебе напоминает этот кот? ( чтение...
1
1)тангенс острого угла прямоугольной трапеции равен 0,2. найдите...
3
Частное корней уравнение 4x^2+bx-27=0 частное =-3. найти b...
3
Напиши 4-5 преимуществ римской армии...
2
Решить неоавенство. log|x|(x^2)+log2(x^2) 8 , заранее...
1
Как пишутся слова : сдать/здать, сдешний/ здешний, бесшумный/...
1
Самым прекрасным строением греческих строителей был храм богини...
3
Трактор массой 500 кг имеет площадь обеих гусениц 2,5 м2. определите...
1
Проект по тема затраты времени на занятия в школе по дням недели...
3
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.