1.среди цифр четырехзначного числа есть четная. накидал тут решение, но где-то ошибка, не могу понять - id148820420211027 от nastyakhariton1 27.10.2021 01:11

Question

Информатика: 1.среди цифр четырехзначного числа есть четная. накидал тут решение, но где-то ошибка, не могу понять где var t,s,d,e,i: integer; begin for i: = 1000 to 9999 do t: =i div 1000; s: =(i div 100)mod 10 ; d: =(i div 10) mod 10; e: =i mod 10; if ((t mod 2=0) or (s mod 2 =0) or (d mod 2 =0) or (e mod 2=0)) then writeln ( true ) else writeln ( false ); end.

nastyakhariton1 · Accepted Answer

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018// Внимание! Если программа не работает, обновите версию!

begin

var L := new List<integer>;

L.AddRange(Seq(2, 100, 5, 99, 17));

L.Println;

var A := ReadInteger('A=');

var s:=L.ToArray.Select((v, i)-> (v, i)); // в памяти не хранится!

// Ищем 2- максимальный элемент. Сортируем по убыванию, берем 2-й.

var i := s.OrderByDescending(t -> t[0]).Skip(1).First[1];

L.Insert(i,A); // вставка

L.Println;

L.Remove(L.Max); // удаление

L.Println;

L := L.Sorted.ToList; // сортировка

L.Println

end.

MOGZ ответил