С Т Е П. А Н
19 20. 6 17 1. 15
Это код- каждая буква соответствует своему номеру в алфавите.
Например: А-первая буква в алфавите.
var a,b,c,max,min,s: integer;
begin
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if a<b then min:=a else min:=b;
if c<min then min:=c;
s:=(a+b+c)-(max+min);
writeln(s);
end.
Пример:
5 2 9
5
Var p real;
begin
readln(p);
if (p>40) and (x<60) then writeln ('Первая категория');
if (p>61) and (x<75) then writeln ('Вторая категория');
if (p>76) and (x<100) then writeln ('Третья категория');
readln;
end,