var G,S,L:integer;
BEGIN
write('Количество горилл = ');
readln(G);
write('Количество шимпанзе = ');
readln(S);
write('Количество лемуров = ');
readln(L);
writeln(G*3+S*2+L);
end.
Const n=20;
var a: array[1..n] of integer;
i, max, imax, min, imin : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write(a[i],' ');
end;
writeln;
max:=a[1]; imax:=1; min:=a[1]; imin:=1;
for i:=2 to n do
begin
if a[i] > max then begin max:=a[i]; imax:=i; end;
if a[i] < min then begin min:=a[i]; imin:=i; end;
end;
writeln('max=',max,' min=',min);
a[imax]:=min; a[imin]:=max;
writeln('Измененный массив:');
for i:=1 to n do write(a[i],' '); writeln;
end.
Пример:
Исходный массив:
-20 6 40 -34 -31 48 1 -24 -35 24 23 8 -13 28 22 -38 26 35 -3 0
max=48 min=-38
Измененный массив:
-20 6 40 -34 -31 -38 1 -24 -35 24 23 8 -13 28 22 48 26 35 -3 0
Var f1,f2,fn,i,s:integer;
begin
f1:=1; f2:=-1;
i:=2; s:=0;
while i<20 do
begin
i:=i+1;
fn:=f1+f2;
f1:=f2;
f2:=fn;
if i>=7 then s:=s+fn;
end;
writeln('s = ',s);
end.
Результат:
s = -4176
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
(SeqGen(ReadInteger,i->1/(10*(i+1)+2)).Sum+1).Println
end.
<u>Пример</u>
10
1.26596470171236