Это программа должна выдать сразу? До какого значения? Конечная цифра задается с клавиатуры?
Var
a,b,c,max,mid,min,t:integer;
begin
Writeln('Введите через пробел три целых двухзначных числа');
Readln(a,b,c);
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end;
if max<c then begin mid:=max; max:=c end
else mid:=c;
if min>mid then begin t:=mid; mid:=min; min:=t end;
if (max-min)>mid then Writeln('YES')
else Writeln('NO')
end.
Тестовое решение:
Введите через пробел три целых двухзначных числа
37 93 74
NO
На рисунке большой круг включает в себя два маленьких. Так как города в Англии и столичные европейские города все являются европейскими городами, то множество а включает в себя множества б и в, большой круг - множество а. Его элементы: Манчестер, Ливерпуль, Лондон, Москва, Париж, Мадрид, Венеция, Брест, а также многие не указанные на рисунке города, например, Кардифф, Женева, Милан.
Оставшиеся два круга представляют города в Англии и европейские столицы. Так как в множество, отвечающее левому кругу, входят Манчестер, Ливерпуль и Лондон, то это города Англии. В это множество входят и другие города, например, Кардифф.
Правому кругу, в котором записаны Лондон, Москва, Париж и Мадрид, остаётся только множество европейских столиц. В это множество входит также Женева и другие города.
Program calc;
var
operation:char;
s,a,b:real;
begin
writeln('Введите первое число'); readln(a);
writeln('выбирайте знак(+ - * /)'); readln(operation);
writeln('Введите второе число'); readln(b);
if (b=0) and (operation = '/') then begin
writeln ('ERROR');
exit
end;
case operation of
'+': s:=a+b;
'-': s:=a-b;
'*': s:=a*b;
'/': s:=a/b;
end;
Writeln('Результат: ',s)
end.
