Можно ещё использовать оператор выбора case
Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.
<span>Если перенос из младшего разряда = 0, то перенос в старший разряд при
суммировании одноразрядных двоичных чисел,равных 1 будет равен 1, а
сумма равна 0, а если перенос из младшего разряда = 1, то и перенос и
сумма будет равна 1. Смотрите таблицу на рисунке. Удачи!)</span>
Пример реализации при помощи функции "поиск решения" в Excel
Var a,b,c:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
c:=a*b/(a*a)+b*b+1;
writeln('c = ',c);
end.
Пример:
a = 2
b = 5
c = 28.5