var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('Вводите элементы матрицы построчно');
var a:=new real[n,m];
var b:=new real[n];
for var i:=0 to n-1 do begin
b[i]:=0;
for var j:=0 to m-1 do begin
Read(a[i,j]);
b[i]+=Sqr(a[i,j])
end;
b[i]:=Sqrt(b[i])
end;
Writeln('Сформированный вектор');
b.Println;
end.
<u>Пример</u>
Количество строк в матрице: 4
Количество столбцов в матрице: 3
Вводите элементы матрицы построчно
3.4 5.1 8
-1 0 1
-5.34 1.777 5
3 4 5
Сформированный вектор
10.0781942827076 1.4142135623731 7.52816903370268 7.07106781186548
<span>ниже описаны шаги
1- D:\Фото\Соревнования\
2- </span><span>D:\Фото\
3- </span><span>D:\Фото\Тренировки\
4- </span><span>D:\Фото\Тренировки\Баскетбол\.
ответ 4</span>
1. нарисовать оси абсцисс и ординат и подписать где ось x а где ось y
2. обозначить единичный отрезок
3. обозначить точки которые надо найти
Дописываем немного код для перебора и проверяем вывод
var
x, a, b, t: longint;
begin
for t := -1000 to 1000 do
begin
x := t;
a := 0;
b := 1;
while x > 0 do
begin
if x mod 2 > 0 then
a := a + x mod 8
else
b := b * (x mod 8);
x := x div 8;
end;
if (a = 2) and (b = 12) then
writeln(t);
end;
end.
Вывод 598
626
654
689
906
913
т.е. минимальное число 598
Аналитическое решение:
имеем дело с 8ричным числом. Перебираем его цифры.
Если цифра нечетная то сумируем ее к А, а четные перемножаем с В
В = 12 это произведение 12 = 2*6 = 3*4 = 1*12, но нужно чтоб все числа были четные потому 2*6
А = 2. 2 = 2 = 1+1 , поскольку числа нечетные, то 2 = 1+1
Значит у нас есть 4 8ричные цифры 2,6,1,1
Минимальное число которое может из них получиться 1126(8) = 598(10)
