Дан массив целых чисел а [10]. найти количество трехзначных чисел, содержащих в себе цифру 7. диапазон элементов от 1 до 1000. если решается написанием программы, то написать лучше в паскале.

Uses crt; const n=10; var a: array [1..n] of integer;     x,k: integer; begin       k: =0;         for x: =1 to 10 do       begin           a[x]: =random(1000)+1;           writeln('a[',x,']: ',a[x]);           if (a[x]> =100) and (a[x]< =999) then           if (a[x] mod 10=7) or (a[x] div 100=7)               or (a[x] div 10 mod 10=7) then inc(k);       end;       writeln('количество трехзначных  элементов, содержащих цифру 7: ',k); end.

Var a, b, x1, x2, x3, c, n, d, i, g : integer;     s : array [1..10000] of integer; begin readln (n); for i: =1 to n do     begin      readln (s[i]);       a: =s[i];       if (a> 99) and (a< 1000) then          begin          x1: =a div 100;           x2: =a div 10 mod 10;           x3: =a mod 10;           if (x1=7) or (x2=7) or (x3=7) then inc(c);           end     end;       writeln (c); end. p.s. надеюсь на и лучший ответ.

1089

Объяснение:

Заменим буквы на цифры следующим образом: А — 0, Г — 1, И — 2, Л — 3, М — 4, О — 5, Р — 6, Т — 7. Получаем список:

1. 0000

2. 0001

3. 0002

4. 0003

5. 0004

6. 0005

7. 0006

8. 0007

9. 0010

...

Для нахождения первого слова, которое начинается с букв ИГ, нужно найти номер ИГАА, то есть 2100. Используется восьмибуквенный алфавит, значит, нужно найти значение числа 21008 в десятичном виде. Им является число 108810, но поскольку номер в списке на единицу больше самого числа, то остаётся добавить к получившемуся числу единицу. Получаем 1089.

 

var

 x: real;  

 cost: real;  //Стоимость капитала

 i: integer;

 

begin

 cost:= 20;  //Начальная стоимость равна 20  

 writeln('Введите ежегодный прирост в процентах');

 readln(x);  //Вводим ежегодный прирост в процентах

 for i:= 1626 to 2012 do   {Каждый год стоимость капитала увеличивается на стоимость капитала * х / 100}

   cost:= cost + cost * (x / 100);

 writeln('Стоимость капитала составляла бы в этом году:  ', cost : 0 : 5, ' $');  {Выводим стоимость капитала с округлением до 5 знаков после запятой}

end.  

Отметь решение как лучшее)

Объяснение: