Вычислить сумму квадратов всех целых чисел, меньших заданного числа

@Лиза Ананеко · Регистрация: 16.03.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте. Помогите решить задачи в Паскаль. Надо ввести с клавиатуры целое число, если число отрицательное, то уменьшить его на 10 и вывести на экран, указав, что оно отрицательное. Это первая задача. Вторая: составить программу, которая выведет на экран первые 15 элементов следующей последовательности:1, 2, 4, 7, 11, 16. Вычислить сумму квадратов всех целых чисел, меньших заданного числа А. Желательно с пояснением

@Puporev · 16.03.2016, 15:46

2.

Pascal

var i:byte;
begin
for i:=0 to 14 do
write(i*(i+1)div 2+1,' ')
end.

@Лиза Ананеко · 16.03.2016, 15:57 **[ТС]**

Спасибо

@Лиза Ананеко 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 3
		1
	Вычислить сумму квадратов всех целых чисел, меньших заданного числа 16.03.2016, 15:38. Показов 2597. Ответов 2 Метки нет (Все метки) Здравствуйте. Помогите решить задачи в Паскаль. Надо ввести с клавиатуры целое число, если число отрицательное, то уменьшить его на 10 и вывести на экран, указав, что оно отрицательное. Это первая задача. Вторая: составить программу, которая выведет на экран первые 15 элементов следующей последовательности:1, 2, 4, 7, 11, 16. Вычислить сумму квадратов всех целых чисел, меньших заданного числа А. Желательно с пояснением 0

@Лиза Ананеко 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 3
	16.03.2016, 15:57 [ТС]	3
	Спасибо 0

Опции темы

Вычислить сумму квадратов всех целых чисел, меньших заданного числа

Решение