//PascalABC.NET
var
m : integer;
begin
// Зарезервируем массив [0..9] для подсчета повторов
var a := ArrFill(10, 0);
// Запрос пользователю ввести положительное число
repeat
m := ReadlnInteger('Введите 0 или положительное число ')
until m >= 0;
// Подсчет количества повторяющихся цифр
while m > 0 do begin
a[m mod 10] += 1;
m := m div 10
end;
// Найдем в массиве повторы от 2 и более раз?
if a.FindIndex(x -> x>=2) = -1 then
// Повторов не найдено. Вывод сообщения
writeln('Нет повторов.')
else begin
// Повторы есть.
write('Повторяются: ');
// Выведем повторяющиеся цифры
for var i := 0 to 9 do
if a[i] > 1 then write(i, ' ')
end
end.
<span><span><span>
<span>
</span></span></span></span><span><span><span>
<span>
Свойства файла
</span></span><span>
Имя файла </span></span></span>word<span><span>
</span>
тип </span>Текстовый документ<span><span>
</span>
приложение </span>Microsoft Office Word<span><span>
</span>размер </span><span>36 МБ</span><span><span><span>
</span><span> Дата создания
</span></span><span>20.02.2017
</span></span>
Это случано не cisco ?1. К прикладному относится <u>В) 1С:Бухгалтерия</u> т.к. эта программа предназначена для работы с таблицами и текстом - не является системной.
2.Называют <u>электронными</u>.
// PascalABC.NET 3.3
begin
var a:=ArrRandom(8,-30,30); a.Println;
writeln('Положительных: ',a.Where(x->x>0).Count);
writeln('Отрицательных: ',a.Where(x->x<0).Count);
end.
Пример:
19 17 -1 21 -23 -13 20 24
Положительных: 5
Отрицательных: 3
1) А В В(отр с черточкой) В(отр)vA F
0 0 1 1 0
0 1 0 0 0
1 0 1 1 1
1 1 0 1 1
2) ABC AVB CVB F
0 0 0 0 0 0
0 0 1 0 1 0
0 1 0 1 1 1
1 0 0 1 0 0
0 1 1 1 1 1
1 0 1 1 1 1
1 1 0 1 1 1
1 1 1 1 1 1
