Ответ:
var X, Y: Real;
begin
WriteLn("Введите значение аргумента: ");
ReadLn(X);
// так как деление на ноль вызовет ошибку, исключаем это
if (X <> 0) then
begin
Y:=1/X*X+4*X+5;
WriteLn("Y= ", Y);
end;
else
WriteLn("Введен недопустимый аргумент");
end.
<span>f(int n)
{
if (n == 1)
return 1;
return f(n - 1) * n;
<span>}
Факториал </span></span>
Ответ:
program znanija
var arr: array [1..30] of integer;
var i: integer;
begin
for i:=0 to 30 do
begin
readln (arr [i]);
end;
for i:=0 to 30 do
begin
if arr[i] > 10 then
begin
writeln (arr [i]);
end;
end;
end.
Или линк: https://pastebin.com/Jm5R4Ehp
Var money,n,count:integer;
begin
money:=1;
n:=0;
while money < 100 do
begin
money:= money*2+n;
n:=n+1;
count:=count+1;
end;
writeln(count);
end.<span>
</span>
Var s:string;
z,y,x,v:char;
begin
read(s);
z:=s[1];
y:=s[2];
x:=s[3];
v:=s[4];
write(z,y,x,v,'ток');
end.