В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География

Приветик друзья с кодом, а то никак не пойму как его записать на паскаль.
— Составить программу, которая формирует массив P из 24 элементов, в котором элементы с 1 по 10 являются кубами своих порядковых номеров, элементы с 10 по 24 равны периметрам квадратов со сторонами равными соответственно 10, 11,12, …, 24. Массив вывести в строку.

Показать ответ
Ответ:
алоал
алоал
17.05.2020 07:41

Программа "Буква Т"

нач

    шаг

    шаг

    шаг

    шаг

    поворот

    прыжок

    прыжок

    поворот

    шаг

    шаг

    шаг

    шаг

кон

Стрелочка будет находиться наверху, смотреть вправо

Программа  "Буква Н"

нач

    поворот

    поворот

    поворот

    шаг

    шаг

    шаг

    шаг

    поворот

    поворот

    прыжок

    прыжок

    поворот

    поворот

    поворот

    шаг

    поворот

    прыжок

    прыжок

    поворот

    поворот

    шаг

    шаг

    шаг

    шаг

кон

Стрелочка находится наверху, смотрит справо

0,0(0 оценок)
Ответ:
polinka20042014
polinka20042014
11.07.2020 21:42

var
    A: array [1..10] of integer;
    i, j, n, temp: integer;

begin
    randomize();
    n := 10;
    for i := 1 to n do
    begin
        A[i] := random(100);
        write(A[i], ' ');
    end;
    
    for j := 1 to n - 1 do
    begin
        for i := 1 to n - j do
        begin
            if a[i] mod 10 < a[i + 1] mod 10 then begin
                temp := a[i];
                a[i] := a[i + 1];
                a[i + 1] := temp;
            end;
        end;
    end;
    
    writeln();
    for i := 1 to n do
        write(A[i], ' ');
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота