Вопрос по информатике:
Помогите плиз эту задачу нам дали из электива по информатики начинаться должно так Program abc;
var a,b,c:integer;
Begin и дальше пож
- 23.12.2015 20:32
- Информатика
- remove_red_eye 15668
- thumb_up 11
Ответы и объяснения 2
Var a,b,c:integer;
BEGIN
readln(a,b,c);
writeln('Ваше число равняется ');
writeln(b);
END.
Я так понял
- 24.12.2015 10:19
- thumb_up 14
Var a,b,c:integer;
BEGIN
writeln('Введите числа');
readln(a,b,c);
If ((a>b) and (b>c)) or ((c>b)and(b>a)) then writeln('число по середине b=',b);
if ((a>c) and (c>b)) or ((c>a)and(b>c)) then writeln('число по середине c=',c);
if ((b>a) and (a>c)) or ((a>b)and(c>a)) then writeln('число по середине a=',a);
readln;
END.
- 25.12.2015 13:29
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.