Составить программу формирования массива на языке pascal: 1 2 n 2 0 0 0 n-1 0 0 0 0 0 0 n n-1 1

Question

Информатика: Составить программу формирования массива на языке pascal: 1 2 n 2 0 0 0 n-1 0 0 0 0 0 0 n n-1 1

devil66669 · Accepted Answer

Объяснение:

1)Число точно больше 100, чтобы L было 3.

2)Какие бы числа мы не ставили на позициях единиц и десятков, результата они никакого не дадут, тк отрезаются командой div

3)Ближайшее необходимое число: 500

Дописал программу, чтобы проверить. Она выводит количество подходящих комбинаций при вводе всех чисел от 1 до 500.

var

x, L, M,count,i: integer;

begin

count:=0;

for i:=1 to 500 do

begin

x:=i; L := 0;M := 0;

while x > 0 do

begin

L := L + 1; x := x div 10;

if L mod 2 = 0 then

M := M + (x mod 10);

end;

//write(L,' ');write(M);

if (L=3) and (M=5) then inc(count);

end;

writeln(count);

end.

MOGZ ответил