Помогите пожалуйста. Нужно написать программу Pascal. Сумму диагонали нашла, а второе условие не знаю как выполнить(

Знания

Информатика

1 ответ:

FiWiLe [18]4 года назад

0 0

...

for i := 1 to n do

for j := 1 to n do

if (a[i][j] > sum) then

a[i][j] -= sum;

...

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

Задание по паскалю, путону, с++ и т.д Ответ 598 нужно решение

apelsinka3 [7]

x = int(input())
a = 0
b = 1
while x > 0:
----if x%2 >0:
--------a +=x%8
----else:
--------b*=x%8
----x = x//8
print(a,b)

Пример
5982 12

0 0

4 года назад

Написать программу вычисления функции... помогите пожалуйста, очень нужно

Анатолий561

Var
x:Real;
begin
Readln(x);
Writeln('x = ', x, ' y = ', (10-5*x)/(sqrt(x*x - 6*x + 10)));
end.

0 0

4 года назад

Написать алгоритм рисования круга в Paint. состоит из 6 пунктов

nasty nasty [51]

1. выбрать основной цвет
2. выбрать фоновый цвет
3. установить толщину линии
4. активировать инструмент Эллипс.
5. выбрать способ заполнения
6. нарисовать круг при нажатой клавише Shift

0 0

4 года назад

Вычислить: sin x+sin 2x+sin 3x+.... (n слагаемых )

uljashka23

Var
   n:integer;
   S,x:real;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
    S:=S+Sin(n*x);
WriteLn('S = ',S)
End.

0 0

4 года назад

Какую клавищу нужно нажать чтобы перейти к новому абзацу?написать пропускную букву

лолда

Еnter потрібно надати щодо перейти новому абзацу

0 0

4 года назад

Прочитать ещё 2 ответа