Var n,i,s:integer;
function fact(k:integer):integer;
var j,f:integer;
begin
f:=1;
for j:=1 to k do f:=f*j;
fact:=f;
end;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do s:=s+fact(i);
writeln('s=',s);
end.
Пример:
n=5
s=153
Var c1, c2, c3: integer;
b: boolean;
begin
readln(c1, c2, c3);
if (c1 = c2 * c3) then
begin
b := true;
writeln(c1, ' = ', c2, ' * ', c3);
end;
if (c3 = c1 * c2) then
begin
b := true;
writeln(c3, ' = ', c1, ' * ', c2);
end;
if (c2 = c1 * c3) then
begin
b := true;
writeln(c2, ' = ', c1, ' * ', c3);
end;
if not (b) then writeln('NO');
<span>end.
Третье ради спортивного интереса сделал:)
var a, b: string;
begin
writeln('Enter a string: ');
readln(a);
readln(b);
if (Pos(b, a) = 0) then writeln('No') else writeln('Yes');
<span>end.</span>
</span>
<span>Ядро – это модули, которые выполняют основные функции операционной системы.</span>