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
Если я правильно поняла задачу и нужно из двоичного числа перевести в десятичное, то ответ 231
Program gt;
var i:integer;
begin
writeln('Заголовка');
i:=1;
while i<=15 do
begin
writeln(i*i*i);
i:=i+1;
end;
end.
Пограммирование
енавориммаргоп
пграммироване
еавориммаргп
праммировае
евориммарп
паммирове
еориммап
пммирое
ериммп
пмире
еимп
пие
еп
п
Ответ: П