//PascalABC.NET 3.2 сборка 1318
Const
gal=4,54609;
Var
x:real;
begin
readln(x);
writeln(x*gal);
end.
//2
Var
b1,q:real;
n:integer;
begin
readln(b1,q,n);
if (b1=0) or (q=0) then
begin
writeln('b1=0 or q=0');
exit;
end
else
if q=1 then
begin
writeln('Sum=',b1*n);
writeln('Bn=',b1);
end
else
begin
Writeln('Sum=',b1*(1-power(q,n))/(1-q));
Writeln('Bn=',b1*power(q,n-1));
end;
end.
Формула в D2 =НЕ(ИЛИ(A2;C2))
Формула в E2 =НЕ(B2)
Формула в F2 =И(D2;E2)
Формула в G2 =И(НЕ(A2);НЕ(B2))
Формула в H2 =ИЛИ(G2;F2)
Var
i,s:integer;
mas : array [1..20] of integer;
begin
randomize ;
for i:=1 to 20 do
mas[i]:=random (100);
s:=0;
for i:=1 to 20 do
if mas[i] mod 5 = 0 then
s:=s+mas[i];
writeln('sum',s);
end.
Расположив буквы в правильном порядке получится такой порядок букв:
ЖГБДАЕВ