найти сумму кубов...

Тема в разделе "Информатика", создана пользователем Kiry, 1 мар 2010.

  1. Kiry

    Kiry New Member

    найти сумму кубов всех целых чисел из диапозона: от а до в,где а меньше либо равнов
     
    Kiry, 1 мар 2010
    #1
  2. Neon09

    Neon09 New Member

    program xxx;
      var a, b, s, i : integer;
    begin
      write('введите а-');
      readln (a);
      write('введите b-');
      readln (b);
      s:=0;
      for i:= a to b do
         s:=s + i * sqr(i);
       writeln ('сумма кубов =', s)
    end.
     
    Neon09, 1 мар 2010
    #2

Поделиться этой страницей

Наша группа