Напишите программу, которая выводит на экран значение n! включая следующую функцию function factorial (n: integer): integer; var p,i: integer; begin p: =1; for i: =1 to n do p: =p*i; factorial: =p; end;
Var n:integer; ch:char; function factorial (n:integer):longint; var p,i:integer; begin p:=1; for i:=1 to n do p:=p*i; factorial:=p; end; begin write ('N = '); readln (n); writeln ('Factorial: ',factorial(n)); readln; end.
V=K*i, где V – это информационный объём текстового сообщения; K – количество символов в сообщении, i – информационный вес одного символа.
Значит, V=K*i=67 символов (с учётом пробелов и знаков препинания) * 16 бит= 1072 бит или 134 байт.
И здесь у нас проблема. Мой ответ не совпадает ни с одним из возможных вариантов. Более-менее сходными с моим ответом являются варианты 2) 134 бит (у меня 134 бАЙт) и 4) 1027 бит (у меня 1072 бит). И тут есть вероятными три пути развития событий: а) я допустил ошибку в вычислениях, б) Вы допустили ошибку при написании вариантов ответа, в) ошибка кроется в самом задании.
Внимательно перечитайте задание, вдруг вы обнаружите, что случайно ошиблись.
В данном случае задача допускает весьма простое решение. Нам повезло с набором данных.
Из таблицы мы видим, что F=1, если Х=1 и хотя бы один из Y,Z равен 1. "Хотя бы один из" - тут уже повеяло функцией "ИЛИ". Смотрим варианты ответов. a) и б) сразу же отбрасываем, потому что там нет "ИЛИ". А вот в оставшихся двух это "ИЛИ" везде. Смотрим снова в таблицу. В в) присутствует Х и по "ИЛИ" с остальными переменными он даст всегда F=1. Следовательно, в) подходит. А вот в г) стоит Х с отрицанием, т.е. при Х=1 мы получаем ¬Х=0 и тут Х нам не А что в г) с Y и Z? В соответствии г) F=1 получится, если Y=1 "ИЛИ" Z=0. Но у нас в последней строке есть "нехороший" результат Y=0, Z=1, а F все равно 1. Поэтому мы вынуждены признать, что г) не подходит.
ch:char;
function factorial (n:integer):longint;
var p,i:integer;
begin
p:=1;
for i:=1 to n do p:=p*i;
factorial:=p;
end;
begin
write ('N = ');
readln (n);
writeln ('Factorial: ',factorial(n));
readln;
end.