Program hhh54;
var i,n,x:longint;
a: array [1..100000] of longint;
begin
read (n);
a[1]:=1;
a[2]:=1;
for i:= 3 to n do
begin
a[i]:=a[i-1]+a[i-2];
write (a[i]);
end;
end.
Ответ:
4(OOPO) и 5(PTON)
Объяснение:
Достаточно начать отталкиваться от предложения с указанием бусины на 3 месте
Program ghg;
var a,b,s:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
if (a<=2*109) and (b<=2*109) then
s:=a+b;
writeln('s=',s);
end.
В июне максимальный доход