Составьте программку вычисляющую, сумму квадратов чисел от 1 до n, (n-

Составьте программу вычисляющую, сумму квадратов чисел от 1 до n, (n- вводится с клавиатуры) если n-четное, и сумму кубов чисел от 1 до n, если n-нечетное1 Использовать цикл REPEAT

Задать свой вопрос
1 ответ

var
  i, n : integer; // объявляем две переменные.
  a, b : real; // объявляем две переменные.
begin
  write ( Введите число:); // вывод на экран строчки.
  readln(n); // считываем число, введенное с клавиатуры.
   repeat // начало цикла.
     i:= i + 1; // счетчик шагов цикла.
     if ( i mod 2 = 0) then // если  число четное.
        a := a + power(i,2)  // считаем сумму квадратов.
    else // если число нечетное.
        b := b + power(i,3)  // считаем сумму кубов.
   until i = n;  // условие выхода из цикла.
writeln (Сумма квадратов четных чисел от 1 до , n, одинакова , a); // вывод на экран строки.
writeln (Сумма кубов нечетных чисел от 1 до , n, равна , b); // вывод на экран строчки.
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт