.........характерные черты?
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();
}
}
}
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 200)
.Max
.Println
end.
Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while (a<>0) do
begin
if(a mod 5=0) or (a mod 7=0) then
k:=k+1;
readln(a);
end;
writeln(k);
end.