<h2><u> </u></h2>
program raf105;
const
Ns = 3; //Длинна столбца
Nc = 4; //Длинна строки
var
a:array[1..Ns,1..Nc] of real;
sums,max:real;
i,j:integer;
begin
max:= -(9**38);
for i:=1 to Ns do
begin
if sums > max
then max:= sums;
sums:= 0;
for j:=1 to Nc do
begin
write('Введите значение элемента ',i,' строки, ',j,' солбца: ');
readln(a[i,j]);
sums += a[i,j];
end;
end;
writeln;
writeln('Максимальная сумма элементов из одной строки: ',max);
end.
<h2><u> </u></h2>
Я думаю что тетради 5 класса лежат в 3 пачке
Получится насыщенный серый цвет. Ниже привожу пример создала в иллюстраторе.
PascalABC.NET 3.4
begin
var s:=ReadlnInteger('n=').ToString; // ввели целым, стало строкой
var l1 := s.Length; // всего цифр
var l2 := s.Distinct.JoinIntoString('').Length; // разных цифр
if l1 = l2 then Writeln('Одинаковых цифр нет')
else Writeln('Одинаковые цифры есть')
end.