Задача №1

В даний непустий текст входять тільки цифри і літери. Визначити, чи задовольняє він наступній умові: текст є десятковим записом числа кратного 6.

Реалізація на C#:

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Collections;

using System.Text.RegularExpressions;

namespace pr271

{

class Program

{

static void Main(string[] args)

{

string s;

int n=0;

s = Console.ReadLine();

try

{

n = int.Parse(s);

if (n%6==0)

Console.WriteLine("YES");

else

Console.WriteLine("NO");

}

catch

{

Console.WriteLine("NO");

}

Console.ReadKey();

}

}

}

Задача №2

Дано 80 дійсних чисел. Знайти порядковий номер того з них, яке найбільш близьке до будь-якого цілого числа.

Реалізація на C#:

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

namespace pr272

{

class Program

{

static void Main(string[] args)

{

const int r = 80;

double[] mas = new double[r];

for (int i = 0; i < r; i++)

{

mas[i] = double.Parse(Console.ReadLine());

}

int k=1;

do

{

Console.WriteLine("Enter int number");

int curr = int.Parse(Console.ReadLine());

double[] mas2 = new double[r];

for (int i = 0; i < r; i++)

{

mas2[i] = Math.Abs(mas[i] - curr);

}

double min = mas2[0];

int n = 0;

for (int i = 0; i < r; i++)

{

if (mas2[i] < min)

{

min = mas2[i];

n = i;

}

}

Console.WriteLine(n + 1);

Console.WriteLine("Press 0 for exit or any other number to continue");

k = int.Parse(Console.ReadLine());

//Console.ReadKey();

}

while (k != 0);

}

}

}

Реалізація на Delphi:

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

Const r=80;

Var mas:array[0..r-1]of real; mas2:array[0..r-1] of real;

i,k,curr,n:integer;

min:real;

begin

{ TODO -oUser -cConsole Main : Insert code here }

for i := 0 to r-1 do

Begin

readln(mas[i]);

end;

k:=1;

repeat

writeln('enterint number');

readln(curr);

for i := 0 to r-1 do

begin

mas2[i] := Abs(mas[i] - curr);

end;

min := mas2[0];

n := 0;

for i := 0 to r-1 do

begin

if (mas2[i] < min) then

begin

min := mas2[i];

n := i;

end;

end;

WriteLn(n + 1);

WriteLn('Press 0 for exit or any other number to continue');

readln(k);

until k = 0;

end.