Дан условный оператор: if a< 5 then c: =1 else if a> 5 then c: =2 else c: =3 какое значения имеет переменная a, если в результате выполнения условного оператора переменной с присваивается значения 3?

Переменная a 
1) не меньше 5 (т.е. >=5);
2) не больше 5 (т.е. <=5)
Следовательно, переменная a=5

Если а меньше 5, то с присваивается 1, в противном случае, если а больше 5 , то с присваивается 2, в противном случае с присваивается 3
т.к. число 5 не входит в последовательность первого и второго условия, то оно подходит второму, и в результате работы программы выводится число 3
ответ: переменная а имеет значение 5

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

1. Если надо преобразовать число без знака в число

begin
  var n:=ReadInteger; // исходное число
  n:=n.ToString.Inverse.ToInteger; // полученное число
  n.Println; // вывод результата
end.

2. Если нужно только вывести результат

begin
  var n:=ReadInteger; // исходное число
  n.ToString.Inverse.ToInteger.Println
end.

3. Если надо только поменять местами символы, введенные с клавиатуры (например, два символа, изображающие число)

begin
  ReadlnString.Inverse.Println
end.

4. Если заданное число может быть отрицательным

begin
  var n:=ReadInteger; // исходное число
  var s:=Sign(n); // знак числа
  n:=Abs(n); // модуль числа
  n:=n.ToString.Inverse.ToInteger*s; // полученное число
  n.Println; // вывод результата
end.

Program weight;
Var
a,b: real;
Begin
writeln('Введите ваш вес P');
readln(a);
writeln('Введите ваш рост R');
readln(b);
if a<=b-100
then writeln('Поздравляю. Ваш вес в норме')
Else writeln('Хорошо бы вам немного похудеть');
End.

 

 

В приложении рабочий файл программы 

Пояснения:

1. Переменным a, b присваивается значение real, так как рост и вес могут быть не целыми числами, а дробными.

2. окончания команд writeln, readln, сортируют этапы решения и ввода по строчкам, вместо вывода всё в одну строку.

3.  После условия  a<=b-100 НЕ ставится точка с запятой, так как это часть одного цикла условия (IF - если). если поставить точку с запятой, то программа будет не верна

 

P.s. Почему-то сервис не возволяет скачать файл программы. В общем скопируйте просто из начала решения тогда