Даны 3 числа a, b, c. если a< =b< =c, то числа заменить их квадратами, если a> b> c, то каждое число заменить нулем, в противном случае поменять знак всех чисел. (двойные условия заменить двумя условиями с использованием соответствующих логических связей) сделать программу в abc pascale.

Program three;
var a, b, c: real;
Begin
Readln(a,b,c);
If (a<=b) and (b<=c) then
Begin
a := power(a,2);
b := power(b,2);
c := power (c,2);
End
Else begin
If (a>b) and (b>c) then
Begin
a:=0;
b:=0;
c:=0;
end;
End
Else begin
a:=-a;
b:=-b;
c:=-c;
End;
Writeln(a, ' ', b, ' ', c);
End.

Я, правда, не знаю, как у вас на уроках изображают реле и контакторы, но схематически эту задачу можно представить так. На входы a-z подается управляющее напряжение контакторами, а на рабочие контакты - напряжение (5, или скорее всего 12 вольт). Если на управляющую обмотку поступает напряжение, контакты замкнуты, и рабочее напряжение подходит сквозь них, выдавая результат. Соединение (точка) обозначает логическую инструкцию or, два контактора рядом - конструкцию and, например k and l или m and n. Если на выходе левой части схемы будет напряжение, или на выходе правой части, то на выходе всей этой схемы будет результирующее напряжение. Понимаю, что описано сумбурно, если будут вопросы, стучитесь в личку, попробую объяснить

Пояснение.

Заменим буквы Д, Е, К, О, Р на 0, 1, 2, 3, 4 соответственно (для них порядок очевиден — по возрастанию).

Выпишем начало списка, заменив буквы на цифры:

1. 0000

2. 0001

3. 0002

4. 0003

5. 0004

6. 0010

...

Полученная запись есть числа, записанные в пятеричной системе счисления в порядке возрастания. Первое слово, начинающееся с «К» — 2000 переведём его в десятичную: 3 · 52 + 0 · 52 + 0 · 51 + 0 · 50 = 250.

Не забудем о том, что есть слово номер 1, записывающееся как 0, а значит, 250 — число, соответствующее номеру 251.

 

ответ: 251.