//прога на Pascal`e
var
n: uint64;
x : int64;
//
function f (a, p:int64):int64;
var i, sum: int64;
begin
sum:=1;
for i:=1 to p do
sum:=sum*(a-i);
f:=sum;
end;
//
begin
readln (x, n);
write (f(x, n));
end.
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=['A'..'F','X'..'Z'];
Writeln(s)
end.
Вредные - любой шум выше 75 Децибел
Полезные - все успокаивающие, например: шелест листьев, тихий звон колокольчиков, капли дождя, стучащие по окну или крыше и тд, тут уж что кого успокаивает
Var n,m,p,s:integer;
begin
write('n=');
readln(n);
m:=n;k:=0;
write('цифры, которые >=4 и <=8 : ');
while m<>0 do begin
p:=m mod 10;
m:=m div 10;
if (p>=4) and (p<=8) then begin
write(p,' ');
s:=s+p;
end;
end;
writeln;
writeln('сумма этих цифр = ',s);
end.
А) 21(10)
б) <span>254(10)
в) </span>63(10)
г) <span>170(10) </span>