Даны три разных целых числа. Найти какое из них (1-ое,второе, третье)
Даны три разных целых числа. Найти какое из них (1-ое,второе, третье) а)самое маленькоеб) является средним(средним назовем число которое больше нам наименьшего из данных чисел,но меньше наивеличайшего)
Задать свой вопрос
Анатолий Нариманидзе
На каком языке?Basic? Либо в Excel?
Adelina Korovskaja
Paskal
Serebysheva Ekaterina
подожди мин 20 выучу язык)
Любовь Слабунова
Спасибо:D
2 ответа
Данька Скопидаров
По моему так:
program p;
var
a,b,c:integer;
begin
writeln('1-ое число:');
readln(a);
writeln('второе число:');
readln(b);
writeln('третие число:');
readln(c);
if (agt;b) and (agt;c) then
writeln('Первое число является наивеличайшим');
if (agt;b) and (alt;c) or (alt;b) and (agt;c) then
writeln('Первое число является средним');
if (alt;b) and (alt;c) then
writeln('1-ое число является наимешим');
if (bgt;a) and (bgt;c) then
writeln('Второе число является наивеличайшим');
if (bgt;a) and (blt;c) or (blt;a) and (bgt;c) then
writeln('2-ое число является средним');
if (blt;a) and (blt;c) then
writeln('Второе число является наимешим');
if (cgt;b) and (cgt;a) then
writeln('Третие число является наивеличайшим');
if (cgt;b) and (clt;a) or (clt;b) and (cgt;a) then
writeln('Третие число является средним');
if (clt;b) and (clt;a) then
writeln('Третие число является наимешим');
end.
program p;
var
a,b,c:integer;
begin
writeln('1-ое число:');
readln(a);
writeln('второе число:');
readln(b);
writeln('третие число:');
readln(c);
if (agt;b) and (agt;c) then
writeln('Первое число является наивеличайшим');
if (agt;b) and (alt;c) or (alt;b) and (agt;c) then
writeln('Первое число является средним');
if (alt;b) and (alt;c) then
writeln('1-ое число является наимешим');
if (bgt;a) and (bgt;c) then
writeln('Второе число является наивеличайшим');
if (bgt;a) and (blt;c) or (blt;a) and (bgt;c) then
writeln('2-ое число является средним');
if (blt;a) and (blt;c) then
writeln('Второе число является наимешим');
if (cgt;b) and (cgt;a) then
writeln('Третие число является наивеличайшим');
if (cgt;b) and (clt;a) or (clt;b) and (cgt;a) then
writeln('Третие число является средним');
if (clt;b) and (clt;a) then
writeln('Третие число является наимешим');
end.
Игорь Трашкевичене
Спасибо громадное)
Виолетта Ожималова
стой там ощибки были я только щас поправил
Гассанов
Михаил
сейчас все верно
Амелия Мекшенкова
ну и тяжелый же этот паскаль)
Степка Загидуллин
Решение :
Даны три разных целых числа: a=17, b= 10, c=6.
Наивеличайшее agt;b
agt;c
Меньшее clt;a
clt;b
Среднее blt;a
bgt;c
Для тебя код нужен?
Даны три разных целых числа: a=17, b= 10, c=6.
Наивеличайшее agt;b
agt;c
Меньшее clt;a
clt;b
Среднее blt;a
bgt;c
Для тебя код нужен?
Шведчикова
Дарина
Да нет спасибо)
Андрей Мяукин
Не за что
Надежда Эльтекова
Тока мне программку было написать в paskal)
Ненчин
Юрок
Можете?) очень надобно
Рома Боцвинов
Да
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов