Вывести элементы числовой последовательности, в записи - вопрос №2422731 от EeOneGuy1997 08.12.2020 07:35

Question

Информатика: Вывести элементы числовой последовательности, в записи значения которых содержится только одна цифра 5.

EeOneGuy1997 · Answer

var

a: array [1..10] of integer;

i : integer;

begin

randomize;

for i:=1 to 10 do A[i]:=Random(15);

for i:=1 to 10 do if A[i]=5 then

writeln('да то что надо ',A[i])

else writeln('ошибка'); readln ;

end.