Регистрация
dwinchester15
13.06.2020 00:42
Информатика
Есть ответ 👍

Exam mark converter from 100 to 5.
80-100 ->5, 60-79 ->4,40-59->3,0-39->2​

151
477
Посмотреть ответы 1

Ответы на вопрос:

alexandrasharapova
alexandrasharapova
4,8(14 оценок)
Попробуй так. думаю должно работать для умеренно небольшого n (во всяком случае до 8 или 9), смотря на сколько хватит стека. при больших n будет вылетать по ошибке памяти, наверное. компилятора под рукой нет, не тестировал, может где баг сидит. попробуй у себя, если что будет  не так, то напиши. вводимое число должно быть больше или равно 2, иначе прога сбойнёт. program bobsfeel ; var n: integer ; var s: real ; function sm ( i : integer ) : real ;     var znak : integer ;     begin      if ( i = 2 ) then sm : = 0.5 else        begin          if ( i % 2 = 1 ) then znak : = -1          else znak : = 1 ;         sm : = znak / i + sm ( i - 1 ) ;         end ; end ;   begin  write('vvdiete n > = 2 _') ;   readln(n) ;   s : = sm ( n ) ;   writeln('s= ' , s ) ;   end.

Популярно: Информатика