Код программы:
var a:array[1..27] of integer;
b, i, c, ind:integer;
begin
a[1]:= 72;
a[2]:= 76;
a[3]:= 92;
a[4]:= 45;
a[5]:= 55;
a[6]:= 82;
a[7]:= 46;
a[8]:= 39;
a[9]:= 78;
a[10]:=50;
a[11]:=34;
a[12]:=71;
a[13]:=44;
a[14]:= 92;
a[15]:= 38;
a[16]:= 51;
a[17]:= 6;
a[18]:= 45;
a[19]:= 66;
a[20]:= 78;
a[21]:= 19;
a[22]:= 17;
a[23]:= 42;
a[24]:= 36;
a[25]:= 34;
a[26]:= 91;
a[27]:= 61;
writeln('Введите число');
readln(b);
if ((b >= 0) and (b <= 100)) then begin
c:=abs(b - a[1]);
for i:=2 to 27 do begin
if(abs(b - a[i]) <=c) then begin
c:=abs(b - a[i]);
ind:=i;
end;
end;
writeln('Результат: ', a[ind]);
end
else
writeln('Ошибка, число должно быть больше 0 и меньше 100');
end.
using System;
using static System.Console;
namespace ConsoleApp7
{
class Program
{
static bool isprost(int n)
{
bool t = true;
for (int i = 2; i <= n / 2; i++)
if (n % i == 0)
return !t;
return t;
}
static void Main(string[] args)
{
Write("Введите кол-во чисел n=");
int x, n = int.Parse(ReadLine());
Write("случайные простые числа по данной формуле из [0;28]: ");
Random r=new Random();
for (int i=1;i<=n;)
{
x = r.Next(0, 28);
if (isprost(x))
{
Write((x*x*2+29).ToString() + " ");
i++;
}
}
ReadKey();
}
}
}
Это кампютерь
Объяснение:
Лагична