Создай матрицу 765432 65432 5432 432 32 2

// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! begin   for var i: =1 to 6 do begin       for var j: =8-i downto 2 do print(j);       writeln       end end. результат 7 6 5 4 3 2 6 5 4 3 2 5 4 3 2 4 3 2 3 2 2

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

 

 

 

информатика - наука о способах получения, накопления, хранения, преобразования, передачи, защиты и использования информации.

 

информация - сведения о чем-либо, независимо от формы их представления.

 

информационные технологии -  широкий класс дисциплин и областей деятельности, относящихся к технологиям создания, и обработки данных, в том числе с применением вычислительной техники