<em>// PascalABC.NET 3.2, сборка 1482 от 12.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,4,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsWithIndexes.Where(z->z[0]<0);
if s.Count=0 then Writeln('Нет отрицательных элементов')
else begin
Write('Отрицательные элементы: ');
s.Select(x->Format('a[{0},{1}]',x[1]+1,x[2]+1)).Println
end
end.
<u>Пример</u>
*** Исходный массив ***
-62 13 -44 78
-19 73 92 -61
47 -13 3 43
----------------
Отрицательные элементы: a[1,1] a[1,3] a[2,1] a[2,4] a[3,2]
сама программа здесь
просто поменяй расширение
Var n,i:integer;
begin
readln(n);
for i:=0 to n do
writeln('3 * ',i,' = ',3*i);
end.
1) В переменной a вычисляется количество четных цифр в числе x, в переменной b - количество нечетных цифр. Общее количество цифр в числе = 3+2=5. Наименьшее пятизначное число, удовлетворяющее условиям = 10001.
2) В переменной L вычисляется количество цифр в числе x, следовательно искомое число трехзначное. Значение 120 можно получить как результат 4*5*6 (все сомножетели >=1 и <=7). Так как в цикле x меняется по правилу x:=x div 8, то искомое число = 654(8) = 428(10).