Попробуйте такой вариант:
programm one
var n, i: integer;
S: real;
begin
readln(n);
while(i != n)
begin
s := s + 1/((2*n+1)*(2*n+1));
i = i+1;
end;
writeln(s);
readln();
end.
Var A : array [1..2, 1..5] of integer;
i,j,pr:integer;
Begin
pr:=1;
Writeln('Ведите значения в массив');
for i:=1 to 2 do
for j:=1 to 5 do read(A[i,j]);
for i:=1 to 2 do
for j:=1 to 5 do
if ( (A[i,j] mod 2 = 0) and (A[i,j] mod 3 <> 0) ) then pr:=pr*A[i,j]; Writeln('Произведение = ',pr)
End.
Var a,b: integer;
<span>begin
</span><span> write('a b через пробел: ');
</span><span> readln(a,b);
</span><span> if (((a div 10) mod 10) mod 2 = 0) or
</span><span> (((b div 10) mod 10) mod 2 =0) then
</span><span> begin
</span><span> a:=a*a; b:=floor(sqrt(b));
</span><span> end
</span><span> else
</span><span> begin
</span><span> a:=floor(sqrt(a));
</span><span> b:=b*b;
</span><span> end;
</span><span> writeln('a = ',a,' b = ',b);
</span><span>end.
</span>a b через пробел: 13 54
<span>a = 3 b = 2916
</span>
a b через пробел: 24 16
<span>a = 576 b = 4
</span>
Как-то так... )))
Смотри картинки...
Первая - вид формул, вторая - значения...
3!=3*2*1=6
три умножить на 2 умножить на 1=6
ответ в
ответ в