===== PascalABC.NET =====
begin
var a := ReadArrInteger('Введи 5 чисел:', 5);
Print('Введено:');
a.Println;
Println('Сумма чисел равна', a.Sum);
a.Transform(p -> p - 1);
Print('Уменьшили элементы на 1:');
Println('Количество нулей:', a.Count(p -> p = 0))
end.
Смотри для этого есть формула I=K*i
И умножаешь:
640*40*60 (И все это делить на определённое кол. делишь (Бит, Байт, Мегабайт, Гигабайт и т.п ))
С - 4
Е - 18
Т - 1
Ь - 22
Получилось слово ГРАФ
Граф - соединение вершин ребрами