Var A:array[1..4,1..4] of integer; i,j,n,k:integer; begin for i:= 1 to 4 do begin k:=0; for j:= 1 to 4 do begin A[i,j]:= random(25)-5;write(A[i,j]:4); if (A[i,j]< 0) and (k=0) then begin n:= n +1; k:=1; end; end;writeln;end;write('количество строк,в которых есть отрицательные элементы ',n);end.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var (s,x):=(ReadlnString('Введите число, можно нецелое:'),0.0); if TryStrToFloat(s,x) then if s.Where(c-> c in ['0'..'9']).Select(c->c.ToDigit).Sum mod 10=5 then Writeln('Сумма цифр заканчивается на 5') else Writeln('Сумма цифр не заканчивается на 5') else Writeln('Неверное представление числа') end.
Примеры Введите число, можно нецелое: -3532175 Сумма цифр не заканчивается на 5
Введите число, можно нецелое: 0.02432413 Сумма цифр не заканчивается на 5
Введите число, можно нецелое: -13.05360214 Сумма цифр заканчивается на 5
Введите число, можно нецелое: 1.23007e-31 Сумма цифр не заканчивается на 5
Пусть в восьмеричной системе счисления число выглядит как abc₈, а в шестиричной def₆, тогда d=a+2, e=b+2, f=c+2. Перейдем к записи в расширенном виде. a×8²+b×8+c = (a+2)×6²+(b+2)×6+(c+2) 64a+8b+c=36a+72+6b+12+c+2 28a+2b=86 14a+b=43 → b=43-14a Понятно, что a,b,c - это восьмеричные цифры и они должны быть одноразрядными и положительными. Простым перебором устанавливаем, что a=3, b=1. Тогда 31c₈ = 53f₆ Поскольку f ∈ [0;5] ∩ с ∈ [0;7] ∩ f=c+2, то с ∈ [0;3] и чисел может быть всего четыре: 310₈, 311₈, 312₈, 313₈
begin
for i:= 1 to 4 do begin
k:=0;
for j:= 1 to 4 do begin
A[i,j]:= random(25)-5;write(A[i,j]:4);
if (A[i,j]< 0) and (k=0) then begin n:= n +1; k:=1; end;
end;writeln;end;write('количество строк,в которых есть отрицательные элементы ',n);end.