Задание 1
INPUT "n=", n
s = 0
FOR i = 1 TO n
s = s + i ^ 2
NEXT i
PRINT 4 * s
Задание 2
10 минут - это 1/6 часа и суммировать дроби, в знаменателе которых число 6, означает накапливать погрешности представления нецелых чисел в ЭВМ. Поэтому расчеты лучше делать в минутах, а результат потом перевести в часы.
Получаем сумму S=60М+(60М+10)+(60М+20)+...+[60М+10*(N-1)]
INPUT "M,N=", m, n
PRINT 5 * n * (12 * m + n - 1) / 60
Вот такие получаются короткие программы, если сначала думать, а потом писать.
586=1001001010
3156=110001010100
конечно, где-то могла быть у меня ошибка в расчетах, но это маловероятно.
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина последовательности:');
ReadSeqInteger('Вводи:', n).SortedDescending.Println
end.
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication7
{
class Program
{
static void Main(string[] args)
{
for (int i = 5; i >= 1; i--)
{
for (int j = i; j >= 1; j--)
{
Console.Write(j);
}
Console.WriteLine();
}
Console.ReadKey();
}
}
}