program fpro;
var
a : array[0..15] of integer;
i : integer;
begin
randomize;
for i :=0 to 15 do
begin
a[i] := random(1,20);
if (a[i] > 5) and (a[i] < 15) then writeln(a[i]);
end;
end.
Program qwe;
Uses crt;
var x:real;
begin
clrscr;
writeln('Vvedite x');
Readln(x);
if sqr(x)-4>0 then writeln('Da') else writeln('Net');
Readkey;
<span>end.</span>
Использовать Чертежник
алг
нач
сместиться в точку (-3, 5)
опустить перо
сместиться в точку (0, 7)
сместиться в точку (0, 0)
поднять перо
сместиться в точку (2, 6)
опустить перо
сместиться в точку (2, 7)
сместиться в точку (5, 7)
сместиться в точку (5, 3)
сместиться в точку (2, 3)
сместиться в точку (5, 3)
сместиться в точку (5,-1)
сместиться в точку (2,-1)
сместиться в точку (2, 0)
кон
Думаю Латынь! Под буквой В, я может и ошибаюсь, но думаю Латынь
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var e:=0.0001;
var x:=ReadReal;
var a:=(x-1)/x;
var (s,n):=(a,2);
repeat
a*=(x-1)/x*(n-1)/n;
s+=a;
n+=1
until a<=e/n;
Writeln(log(x),' ',s)
end.