Поставь вместо букв такие цифры чтобы равенство оказалось верным. ( одинаковые буквы означают одинаковые цифры , разные буквы разные цифры. нитка + нитка = ткань

пускай н, и, т, к, а=1, а ь= тогда 1*1*1*1*1 + 1*1*1*1*1 = 1*1*1*1*2, с этого выходит что 1+1=2.

Var   a, b, c, del : integer; begin   write('введите число a: ');   readln(a);   write('введите число b: ');   readln(b);   write('введите число c: ');   readln(c);   write('введите делитель: ');   readln(del);   write('число ', del, ' является делителем таких  чисел:   ');   if a mod del = 0 then write(a, ' ');     if b mod del = 0 then write(b, ' ');     if c mod del = 0 then write(c, ' '); end.

Var n,a,b,i,min: integer; mass: array[1..100000] of integer; begin writeln('введите кол-во элементов массива'); read(n); writeln('введите числа'); for i: =1 to n do// задаем массив пока i  не станет равно n (i: =i+1  ) read(mass[i]); //считываем массив с индексом i min: =mass[1]; // обозначаем первый элемент массива за первый b: =1; // индекс от первого элемента массива for i: =1 to n do//цикл  задаем массив пока i  не станет равно n (i: =i+1  ) if mass[i]< min then  begin//при условии что массив будет меньше первого числа то b: =i; // обозначаем индекс min: =mass[i]; // обозначаем новый минимальный массив end; for i: =1 to b-1 do//  задаем массив пока i  не станет равно b-1 (i: =i+1  ); и еще b-1 значит чтобы само число b не входило в цикл mass[i]: =mass[i]*mass[b]; // домножаем на меньший массив writeln('полученный массив'); // вывод массива for i: =1 to n do write(mass[i]: 6); end.