• Помогите пожалуйста с программой в pascal Ооочень надо !

    question img

Ответы 2

  • Пасиба
  • var n,i,f1,f2,f,s:integer;beginreadln(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.Пример:10s = 143Нет
    • Автор:

      leonor46
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years