Напишите программу на Паскале. Дано натуральное число N. Найти сумму квадратов всех натуральных чисел от 1 до N.
5-9 класс
|
Вот так вот получается.
VAR
n, sum, i : LongInt;
BEGIN
Read(n);
For i := 1 to n do
sum := sum + Sqr(i);
Write(sum);
END.
Другие вопросы из категории
в системе паскаль
• радиоуправляемая модель самолета;
• словесное описание куртки;
• план квартиры;
• чайник из пластилина в натуральную величину;
• мысленное представление о будущей поездке.
Какие действия могут быть выполнены только с оригиналом?
Читайте также
Даны два целых числа А и В (А меньше В). Найти сумму квадратов всех целых чисел от А до В включительно.
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
Помогите плииз.
Найти сумму квадратов всех целых чисел от 1 до 100, реализовав на языке программирования Паскаль с помощью циклов "до" (until/repeat) и "n раз" (for)