Lietvavis
4 год назад
Пожалуйста посчитайте пожалуйста с программой в pascal Ооочень надо !
ОТВЕТЫ
Luka
Oct 24, 2020
var n,i,f1,f2,f,s:integer;
begin
readln(n);
f1:=1; f2:=1;
s:=f1+f2;
for i:=3 to n do
begin
f:=f1+f2;
f1:=f2;
f2:=f;
s:=s+f;
end;
writeln('s = ',s);
if s mod 2=0 then writeln('Да')
else writeln('Нет');
end.
Пример:
10
s = 143
Нет
begin
readln(n);
f1:=1; f2:=1;
s:=f1+f2;
for i:=3 to n do
begin
f:=f1+f2;
f1:=f2;
f2:=f;
s:=s+f;
end;
writeln('s = ',s);
if s mod 2=0 then writeln('Да')
else writeln('Нет');
end.
Пример:
10
s = 143
Нет
131
Смежные вопросы: