О-дин
д-ва
т-ри
ч-етыре
п-ять
дальше сам
<span>var
factorial:
longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
readln;
end.</span>
Program n1;
var x: integer;
begin
x:=-4;
writeln(abs(7*x-15)-sqr(sqr(x)));
x:=3;
writeln(abs(7*x-15)-sqr(sqr(x)));
end.
Ответ:
16
Объяснение:
С 61 по 64 - 4 процента щупалец
При условии, что каждое щупальце занимает 4%(так получается наименьшее допустимое кол-во щупалец) мы получим, что их 25.
Где на 60% идёт 60/4=15 щупальце.
А на 64 заканчивается 16.
Var n,sum,d,ind,first:integer;
begin
Write('n');
Readln(n);
d:=1;
ind:=0;
sum:=0;
if n div d=0 then
begin
ind:=1;
sum:=n;
end
else
begin
while n div d<>0 do
begin
inc(ind);
sum:=sum+(n div d) mod 10;
d:=d*10;
end;
end;
Writeln('suma',Sum);
Writeln('kolvo',ind);
first:=(n div round(d/10)) mod 10;
writeln('first',first);
readln;
end.