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

Нужно составить алгоритм для робота в кумире, чтоб он закрасил эти клетки


Нужно составить алгоритм для робота в кумире, чтоб он закрасил эти клетки

Показать ответ
Ответ:
владимир182
владимир182
04.10.2022 02:20
Var a,b,c,d,e,x: integer;
BEGIN
    readln(a,b,c,d,e);
    if {1} a>b then begin x:=a; a:=b; b:=x;  end;
    if {2} c>d then begin x:=c; c:=d; d:=x;  end;
    if {3} a>c then begin x:=a; a:=c; c:=x; x:=b; b:=d; d:=x; end;
    if {4} c>e then
        if {5} b>c then
            if {6} b>d then
                if {7} a>e then begin x:=e; e:=b; b:=a; a:=x; end
                    else begin x:=e; e:=b; b:=x; end
                else
                if {7} a>e then begin x:=e; e:=d; d:=b; b:=a; a:=x; end
                    else begin x:=e; e:=d; d:=b; b:=x; end
            else
            if {6} a>e then begin x:=e; e:=d; d:=c; c:=b; b:=a; a:=x;  end
                else
                if {7} b>e then begin x:=e; e:=d; d:=c; c:=b; b:=x;  end
                    else begin x:=e; e:=d; d:=c; c:=x;  end
        else
        if {5} d>e then
            if {6} b>e then
                if {7} b>d then begin x:=e; e:=b; b:=c; c:=x;  end
                    else begin x:=e; e:=d; d:=b; b:=c; c:=x;  end
                else
                if {7} b>c then begin x:=b; b:=c; c:=x; x:=e; e:=d; d:=x;  end
                    else begin x:=e; e:=d; d:=x;  end
            else
            if {6} b>d then
                if {7} b>e then begin x:=b; b:=c; c:=d; d:=e; e:=x;  end
                    else begin x:=b; b:=c; c:=d; d:=x;  end
                else
                if {7} b>c then begin x:=b; b:=c; c:=x;  end;
    writeln;
    writeln(a,' ',b,' ',c,' ',d,' ',e);
END.
0,0(0 оценок)
Ответ:
School30zh
School30zh
07.06.2022 00:02

C++

Объяснение:

#include <iostream>

using namespace std;

#include <string>

//На вход программы поступает неизвестное количество целых чисел, ввод заканчивается нулём.Найти среднее арифметическое всех двузначных чисел которые делятся на 7. С++

int main()

{

int number;

int count = 0;

float summ = 0;

int otvet;

cin >> number;

while (number != 0) {

 cin >> number;

 if ((number >= 10 && number <= 99) && (number % 7 == 0)) {

  summ += number;

  count++;

 }

 if (number == 0) {

  otvet = summ / count;

  cout << "Otvet: " << otvet << endl;

  break;

 }

}

}

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