Ivanych086
23.01.2020 12:37

Дано двузначное число получить новое числа с перестановкой цифр заданного сделайте с c++

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
SuperLeonellus123
10.03.2020 06:19

Сейчас в нашей жизни очень много компьютеров. Почти у каждой семьи есть свой персональный компьютер. Как говорят, в мире уже больше миллиарда компьютеров. Итак, мы уже не можем жить без этих умных машин. И я согласна с миллионами пользователями, что компьютеры полезны.

Во-первых, мы получаем очень много информации с компьютеров и Интернета. Это универсальный источник различной информации. И это гораздо удобнее и быстрее, чем искать редкую книгу или спрашивать у учителя совета. Во-вторых, компьютеры предоставляют тебе очень много услуг. Они не только считать, но и создавать фильмы, презентации, сочинять собственные стихи, работать с изображениями и т.д. В-третьих, они общению людей. Например, гораздо быстрее послать письмо по электронной почте, чем отправить ее как в старые времена. И, конечно же, система не сделает никаких ошибок, и письмо придет по правильному адресу, а почтальон может потерять конверт.

Но некоторые говорят, что если ты используешь компьютер, то ты наносишь вред здоровью, а особенно глазам. Однако, я не согласна с таким мнением. Есть специальные правила об использовании компьютера: ты должен регулярно делать передышку и выполнять специальные упражнения для глаз. И, если ты соблюдаешь эти правила, у тебя не будет проблем со здоровьем.

Итого, эти сложные машины нам в нашей каждодневной жизни. И, я думаю, что каждый должен знать как работать с компьютерами, если он хочет идти в ногу со временем.

Объяснение:

0,0(0 оценок)
Ответ:
denvolk00
26.05.2021 16:24
Const
    n = 3;
    m = 3;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(20) - 10;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;
    
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            if ((i + j) mod 2 = 1) and (a[i, j] < 0) then
                a[i, j] := sqr(a[i, j]);
            write(a[i, j]:4, ' ');
        end;
        writeln;
    end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота