Забравена парола

Език

Български    Английски

Реклами




Съобщи за грешка !
Добави търсачка

Валиден XHTML 1.1 Валиден CSS 2.1
Powered by PHP Powered by MySQL
Pascal емулатор
1 потребител(и) online
Контрол на шрифта Принтирай  Текущ език: Pascal

Упражнения://Редене на код


За да решите задачата е нужно чрез мишката да разместите кода, докато получите работеща програма.

Условие на задачата:
Съставете програма, която изчислява следната сума: [br /] S = ( 1 + 1/1[sup]2[/sup] ) + ( 1 + 1/2[sup]2[/sup] ) + ( 1 + 1/3[sup]2[/sup] ) + ... + ( 1 + 1/n[sup]2[/sup] ) ,[br /] като стойността на n предварително се въвежда от клавиатурата.


  • end.
  • var i, n : integer ;
  • s := 0 ;
  • s := s + ( 1 + 1/sqr(i) ) ;
  • begin
  • write ( 'въведете стойност за n: ' ) ;
  • s : real ;
  • for i := 1 to n do
  • readln ( n ) ;
  • readln ;
  • writeln ( 'сумата е: ' , s : 8 : 3 ) ;