Дана прямоугольная матрица из символов. Найти номер последней строки, все элементы в которой одинаковы. Для решения задачи, не считая подзадачи ввода и вывода, не использовать параметрический цикл ДЛЯ, а только циклы ПОКА или ДО.

20-25=-5                                                                                   

var n, n1, n2, n3, k: integer;

begin readln(n); n1 : = 1; n2 : = 1; n3 : = 2; k : = 0; if (n=1) or (n=2) then k : = 1; while n3 < = n do begin if n3=n then k : = 1; n1 : = n2; n2 : = n3; n3 : = n1 + n2; end; if k = 1 then writeln(n, ' является числом фибоначчи') else writeln(n, ' не является числом фибоначчи'); end.

7680*90=691200

691200/16=43200

43200/400=108 страниц

подвести курсор к элементу удаления 

нажать клавишу backspace.