Даны три различных целых числа. определить какое из них (первое, второе, третье) а)самое маленькоеб) является средним(средним назовем число которое больше нам меньшего из данных чисел, но меньше наибольшего)

По моему так: program p; var a,b,c: integer; begin writeln('первое число: '); readln(a); writeln('второе число: '); readln(b); writeln('третие число: '); readln(c); if (a> b) and (a> c) then writeln('первое число является наибольшим'); if (a> b) and (a< c) or (a< b) and (a> c) then writeln('первое число является средним'); if (a< b) and (a< c) then writeln('первое число является наимешим'); if (b> a) and (b> c) then writeln('второе число является наибольшим'); if (b> a) and (b< c) or (b< a) and (b> c) then writeln('второе число является средним'); if (b< a) and (b< c) then writeln('второе число является наимешим'); if (c> b) and (c> a) then writeln('третие число является наибольшим'); if (c> b) and (c< a) or (c< b) and (c> a) then writeln('третие число является средним'); if (c< b) and (c< a) then writeln('третие число является наимешим'); end.

Решение : даны три различных целых числа: a=17, b= 10, c=6.  наибольшее a> b a> c наименьшее c< a c< b среднее b< a b> c  тебе код нужен?

чес гря не понимаю, в чем тут же все указано. безо всякого с++ в экселе мона сотворить этакий "калькулятор"))

 

есть постоянная 100 (гк золота)

и переменные х и у, их вводит, я так понял, пользователь программулечки,

дальше сии переменные суммируются

и из них считают

70% - результат сообщают польщователю с пометкой "погибшие"

26% результат сообщают польщователю с пометкой "тяжело ранено"

4% результат сообщают польщователю с пометкой "осталось в живых"

а постоянную100 делят на эти 4% от х+у ( то есть на к-во выживших) и сообщают результат пользователю с пометкой "досталось золота каждому из них (выживших)"

 

затем, если надо, обнулить х и у для следкющего года. 

а результаты, если надо получить данные за два года, прибавлять к предыдущим, уже ну и еще куча вариантов обработки вдруг нужна выборка по четным , вдруг еще

 

  мона поставить переменную, считающую годы с каждым вводом х и

 

 

в ощем - подвинтеся, дайте простор моей

 

 

программа на turbo pascal 7.1:

содержание progs.pas:

{$n+}{-директива для подключения 8087 препоцессора}uses output1; {здесь  подключаем модуль  output1}

var p: double;

function f1(p: double): double; beginf1: =sqr(p); end;

procedure p1(var p: double); beginreadln(p); p: =f1(p); end;

beginwrite('введите длину стороны квадрата = '); p1(p); p2(p); end.

 

содержание output1.tpu:

{$n+}{-директива для подключения 8087 препоцессора}unit output1; {здесь объявляем модуль  output1}

interface

procedure p2(p: double);

implementation

procedure p2; beginwriteln('площадь квадрата = ',p: 0: 5); end;

end.