Program n1;
var i,a,kn,pp,n: integer;
begin
write('введите кол-во чисел: ');
readln(n);
pp:=1;
kn:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a);
if a mod 2<>0 then kn:=kn+1;
if a>0 then pp:=pp*a;
end;
writeln('кол-во неч. чисел: ',kn);
writeln('произв. пол чисел: ',pp);
end.
Рупор? Знак? Сигнальный ракет?
procedure print(a: <em>integer</em>);
var
i: <em>integer</em>;
s: <em>string</em>;
begin
str(a, s);
for i := 1 to length(s) do
writeln(s[i]);
end;
Program pr;
uses crt;
Var i,j,n,rezult:integer;
Begin
Writeln('Введите n');
readln(n);
for i:=0 to n-1 do
Begin
for j:=1 to n do
Begin
rezult:=i*n+j;
Write(rezult:3,' ');
end;
Writeln;
end;
end.<span>
</span>
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2;
var x:=a/b;
var y:=x/b;
var z:=Ln(1+x*x)/((1+y*y)*(1+x*x));
Writeln(z)
end.
<u>Результат</u>
0.5 0.5
0.0693147180559945
1 0.8
0.106704348687099
3 1
0.0230258509299405