//Для проверки результата вывел массив на экран
using System;
namespace App1
{
class Program
{
private static void Main()
{
const int x = -10;
const int y = 20;
int n, k;
Console.Write("Enter n: "); n = int.Parse(Console.ReadLine());
Console.Write("Enter k: "); k = int.Parse(Console.ReadLine());
Console.WriteLine($"{Environment.NewLine}Array:");
int counter = 0;
int[] array = new int[n];
Random rand = new Random();
for (int i = 0; i < array.Length; i++)
{
array[i] = rand.Next(x, y + 1);
if (array[i] > 0 && array[i] % k == 0) { counter++; }
Console.WriteLine($"{i + 1}. {array[i]}");
}
Console.Write(Environment.NewLine);
if (counter > 0) { Console.WriteLine($"В массиве {counter} элементов, соответствующих заданному условию."); }
else { Console.WriteLine("В массиве нет элементов, соответствующих заданному условию."); }
Console.ReadKey();
}
}
}
var
a, s, cifra: integer;
begin
s:= 0;
writeln('Введите натуральное число');
readln(a);
while a > 0 do
begin
cifra:= a mod 10; //Определяем очередную цифру числа
s:= s + cifra * cifra * cifra; //Прибавляем к значению s цифру в кубе
a:= a div 10; //целочисленное деление числа на 10 (отсекаем текущую цифру)
end;
writeln('Сумма кубов цифр числа: ', s);
end.
2.
var
a: integer;
begin
writeln('Введите натуральное число');
readln(a);
while a > 9 do {Определяем первую цифру числа путем отрезания цифр числа, пока число не станет однозначным. Полученное число и будет первой цифрой}
a:= a div 10;
writeln('Первая цифра числа: ', a);
end.