Program asd;
USES crt;
var a,n,p,i:integer;
BEGIN
Clrscr;
Writeln('Vvedite kol-vo ryada: ');
Readln(n);
p:=1;
For i:=1 to n do
begin
p:=p*i;
end;
Writeln('Proisvedenie ryada: ',p);
Readln;
<span>END.</span>
Один байт-8 цифр.128 64 32 16 8 4 2 1. Суммируй до той степени, пока не выйдет твое число. на месте использованных цифр ставь 1, вместо неиспользованных 0. число 137- 10001001
Для презентаций, проведения интерактивных уроков и домашнего кинотеатра.
Цикл встречается в сказке Репка
Использовать Робот
алг
нач
нц пока справа свободно
вправо
закрасить
кц
нц пока снизу свободно
вниз
закрасить
кц
нц пока слева свободно
влево
закрасить
кц
нц пока сверху свободно
вверх
закрасить
кц
кон