Var
x, y, z: integer;
begin
writeln('Веедите значения x,y,z');
readln(x, y, z);
if z>(x+y) then
writeln('Решения нет')
else if z=min(x,y) then
writeln('Делать нчего не нужно')
else
writeln('Потребуется шагов: ', min(x, y)-z)
end.
1 группа лишнее Home
2 группа лишнее F1
3 группа лишнее F12
4 группа лишнее *
Думаю так.
Измените тип переменных n и k на integer:
function Xfact(o: integer): integer;
var
factorial: longint;
i: integer;
begin
write('o = ');
readln(o);
factorial := 1;
for i := 2 to o do
factorial := factorial * i;
end;
var
c: real;
n,k:integer;
begin
writeln('Введите число n: ');
readln(n);
writeln('Введите число k: ');
readln(k);
c := Xfact(n) / Xfact(n - k) * Xfact(k);
writeln('C = ', c);
end.
Решение с помощью таблицы приведено во вложении.
Числами обозначены клетки, состояние которых определено в высказывании под соответствующим числу номером. Красный фон - отрицательный результат, зеленый - положительный.
Полезно нарисовать пустую таблицу и заполнять её, ставя знак "минус" (или записывая "нет") вместо красного фона и знак "плюс" ("да") вместо зеленого.
Компьютерная графика - это область деятельности, в которой компьютеры наряду со специальным программным обеспечением используются в качестве инструмента, как для создания (синтеза) и редактирования изображений, так и для оцифровки визуальной информации, полученной из реального мира с целью дальнейшей её обработки и хранения.
В эпоху постнеомодерна, то есть в нашу с вами, растут требования не только к функциональности, но и к эстетическому наполнению продукции, следовательно, участие дизайнера в создании продуктов потребления становится не только обязательным, но и растёт. Особенно емкими для данного вида дизайнерского обеспечения являются ниши дизайна мебели, ландшафтного, архитектурного. Хоть креативный компонент дизайна трудно формализуем, тем не менее, есть возможность разгрузить дизайнера от рутинной работы средствами графического программного обеспечения. Развиваются направления web дизайна, дизайна интерфейсов программного обеспечения.