Program fact; uses crt; var n,i,s:integer; beginS:=1; write('Введите число - '); readln(n); If n<=0 then write('Ваше число либо отрицательное, либо равно нулю. Факториал 0!=1') else begin for i:=1 to n do S:=s*i; write('Факториал Вашего числа равен - ',s); end; end.
Целая часть от деления Остаток от деления12 div 2 = 6 12 mod 2 = 06 div 2 = 3 6 mod 2 = 03 div 2 = 1 3 mod 2 = 11 div 2 = 0 1 mod 2 = 1Остаток от деления записываем в обратном порядке. Получаем число в 2-ой системе счисления: 1100 12 = 1100|2 Для перевода дробной части числа последовательно умножаем дробную часть на основание 2. В результате каждый раз записываем целую часть произведения. 0.75*2 = 1.5 (целая часть 1) 0.5*2 = 1 (целая часть 1) 0*2 = 0 (целая часть 0) 0*2 = 0 (целая часть 0) Получаем число в 2-ой системе счисления: 1100 0.75 = 1100|2 В итоге получаем число: 1100.1100|2
Всего номеров четыре. Номера Пети и Коли в сумме меньше четырех, следовательно ни Петя, ни Коля не могут быть ни четвертым, ни третьим, поэтому у Пети и Коли номера 1 и 2 (только 1+2=3, что меньше четырех). Значит, Гриша не первый и не второй, т.е. его номер больше, чем у Пети и ответ - "да".
Условие, что последний (четвертый) стоит после Коли - лишнее, оно ничего не дает. Гриша стоит перед Васей позволяет нам лишь сделать вывод, что Гриша третий, а Вася четвертый, но и этого по условию задачи нам не нужно.
uses crt;
var n,i,s:integer;
beginS:=1;
write('Введите число - ');
readln(n);
If n<=0 then
write('Ваше число либо отрицательное, либо равно нулю. Факториал 0!=1')
else begin
for i:=1 to n do
S:=s*i;
write('Факториал Вашего числа равен - ',s);
end;
end.