Графическими
Звуковыми
Текстовыми
Решение приведено в файле приложенном ниже!!!!программа тестировалась и работает
Вот программа:
var
x:integer;
function Fact(n:integer): integer;
var
i,sum:integer;
begin
sum:=1;
for i:=1 to n do
sum:=sum*i;
result:=sum;
end;
begin
readln(x);
writeln(Fact(x));
end.
--------->С помощью этой функции найти <span>факториалы пяти данных целых чисел.
- Вы не написали каких чисел</span>
Ответ: 1010101
Если надо в двоичной
Program vj;
var x,a,b,c,h:integer;
begin
writeln('трёхзначное число');
readln(x);
a:=x div 100;
b:=x div 10 mod 10;
c:=x mod 10;
h:=a+b+c;
writeln(' Сумма цифр этого трёхзначного числа=',h)
end.