Хост(Хостинг). Компьютер или клиент-сервер подключенный к сети от которого зависит работа какого-либо интернет ресурса.( либо какого либо игрового мультиплеерного сервера )
Var
n,d1,d10,d100:integer;
begin
Write('Введите натуральное трехзначное число: '); Read(n);
d1:=n mod 10; d100:=n div 100;
d10:=(n div 10) mod 10;
if (d1 mod 2 = 0) or (d10 mod 2=0) or (d100 mod 2=0)
then Writeln('Есть четная цифра')
else Writeln('Нет четных цифр')
end.
<h3>// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3><h2>С массивом</h2>
begin
var a := ReadArrInteger(ReadlnInteger);
var (i, v) := a.Numerate.Where(t -> t[1].IsEven and (t[1] mod 10 = 8))
.MinBy(t -> t[1]);
i.Println
end.
<h2>С последовательностью</h2>
begin
var (n, min, i, imin) := (ReadlnInteger, integer.MaxValue, 1, 1);
var s := ReadSeqInteger(n);
foreach var t in s do
begin
if (t < min) and t.IsEven and (t mod 10 = 8) then
(min, imin) := (t, i);
Inc(i)
end;
imin.Println
end.
65=16*4+1=41(в 16)
29=16+13=1D (в 16)
41
1D
___
5Е
проверка:
94=5*16+14=5Е(в 16)
ответ: 5Е
Алг
нач
лит s
ввод s
нц 5 раз
вывод s+' ';
кц
кон