Составьте программку вычисляющую, сумму квадратов чисел от 1 до n, (n-
Составьте программу вычисляющую, сумму квадратов чисел от 1 до n, (n- вводится с клавиатуры) если n-четное, и сумму кубов чисел от 1 до n, если n-нечетное1 Использовать цикл REPEAT
Задать свой вопрос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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.