Ввести два числа, если их произведение отрицательно, то умножить его на -2, в противном случае умножить на 3

Знания

Информатика

1 ответ:

se2523283 года назад

0 0

Я сделала на картинке в прикрепленном файле

Читайте также

Дана квадратная матрица порядка N. Найти количество четных элементов квадратной матрицы, расположенных ниже побочной диагонали.

Dranish [45]

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=0;
for var i:=1 to n-1 do
 for var j:=n-i to n-1 do
 if a[i,j].IsEven then k+=1;
Writeln('Количество четных элементов ниже побочной диагонали: ',k)
end.

Пример
Количество строк (столбцов) в матрице: 7
*** Исходная матрица ***
90 57 58 49 91 -83 61
-57 70 52 90 53 -22 89
-90 -23 39 -88 28 16 -34
-65 -19 -92 -49 77 11 79
-37 -85 -5 6 -41 -75 -90
 1 62 24 92 -37 88 21
-65 -47 48 -39 -46 6 38
----------------------------
Количество четных элементов ниже побочной диагонали: 11

0 0

4 года назад

40баллов очень нужно умоляю прошу

Сен Се Ги [7]

1. (b+sqrt(b*b+4*a*c))/(2*a)-a*a*a*c+1/(b*b)
2. (a/c)*(b/d)-(a*b-c)/(c*d)
3. x-x*x*x/3+x*x*x*x*x/5
4. (x+y)/(x+1)-(x*y-12)/(34+x)

0 0

4 года назад

Скорее всего, ваши компьютеры уже не работают с дискетами — гибкими магнитными дисками, помещёнными в защитный пластиковый корпу

sani55555

Команды для сохранения

0 0

4 года назад