Var i, h, res: integer;
begin
write('H = ');
readln(h);
res:=1;
for i:=1 to h do
res:=res*i;
writeln(h, '! = ', res);
<span>end.</span>
//PascalABC.NET
var
a,i:integer;
b:array [0..9] of boolean;
begin
Readln(a);
for i:=0 to 9 do b[i]:=false;
While a>0 do
begin
if b[a mod 10]=false then b[a mod 10]:=true;
a:=a div 10;
end;
for i:=0 to 9 do if not b[i] then Writeln(i);
end.
В задаче не указан шаг изменения х , допустим он равен 1варX и Y:реальные;начатьх:=1;пока х<=10 делатьначатьy:=1/x-5;writeln(г:8:2);х:=х+1;конца;конец.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadAllText('input.txt').ToIntegers;
a.Println
end.
<h2 /><h2>Во втором вложении файл input.txt</h2>
Правильный ответ: Государственный бюджет