using System;
namespace Dvumerni_Случайные_числа
{
class Program
{
static void Main(string[] args)
{
//Случайный размер массива от 5 до 10 элементов
Random Value = new Random();
int RazmerMassiva = Value.Next(5,10);
//Объявление массива с случайным размером элементов
int[] Massiv_1 = new int [RazmerMassiva];
//Заносим случайные значения в массив от 1 до 5
Random RandomCifr = new Random();
for (int i = 0; i < Massiv_1.GetLength(0); i++)
Massiv_1[i] = RandomCifr.Next(1,5);
//Обьявление переменных чтобы работать в цикле "While"
int proverochka = 0;
int schetchikIndekca = 0;
/*Обьявление нового массива (Massiv_2),который будет по размеру таким же как размер массива "Massiv_1"
И будет принимать его значения увеличенные на 15 в цикле "While" */
int[] Massiv_2 = new int[Massiv_1.Length];
//Увеличиваем значения в Massiv_1 на 15 и заносим их в Massiv_2
while (Massiv_1.Length > proverochka)
{
Massiv_2[schetchikIndekca] = Massiv_1[schetchikIndekca] + 15;
proverochka++;
schetchikIndekca++;
}
//Выводим новый массив (Massiv_2) в консоль чтобы посмотреть как отработала программа
foreach (var item in Massiv_2)
Console.WriteLine(item);
}
}
}
Объяснение: Программа выполнена в C#. Не было указано на каком языке нужно выполнять.
var
a,b,sum : integer;
begin
Readln(a, b);
if (a mod b = 0) then
begin
while a > 0 do
begin
sum:= sum + (a mod 10);
a:= a div 10;
end;
if sum > b then
begin
Writeln('Верно');
halt;
end;
end;
Writeln('Неверно');
end.
Пример:
1234 2
Верно
2)
var
i: integer;
begin
For i:= 100 to 999 do
if (i*i)mod 1000 = i then Write(i, ' ');
end.
Результат:
376 625
3)
var
i,n : integer;
function Simple(n: Longint): boolean;
var
i: Longint;
begin
for i := 2 to Round(Sqrt(n)) do
if n mod i = 0 then
break;
Simple := n mod i <> 0;
end;
begin
Read(n);
For i:= 1 to Round(Sqrt(n)) do
if n mod i = 0 then
if (Simple(i))and(Simple(n div i)) then
begin
Writeln('YES');
halt;
end;
Writeln('NO');
end.
Пример:
33
YES