lilo2622
26.04.2021 14:32

Запиши команды для исполнителя Чертёжник, чтобы можно было изобразить замкнутую геометрическую фигуру, положение вершин которой на координатной плоскости определяется парами чисел (1,1),(3,3),(8,7).​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
jookyun
12.05.2022 09:38
1. программа это описание на формальном языке понятном компьютеру последовательности действий которые необходимо выполнить над данными для решения поставленной задачи
2. системное программное обеспечение включает в себя операционную систему и сервисные программы
3.операционная система это комплекс программ обеспечивающих совместное функционирование всех устройств компьютера и предоставляющих пользователю доступ к ресурсам компьютера
4.аппаратный Интерфейс - это средства обеспечивающие взаимодействие между устройствами компьютера для обеспечения совместного функционирования аппаратного обеспечения компьютера составляющая операционные системы входят драйверы драйверы это устройство специальные программы управляющие работой подключенных к компьютеру устройств
5.пользовательский Интерфейс это средства обеспечивающие взаимодействие человека и компьютера
6.русский компьютера это последовательная загрузка программ операционной системы из долговременной памяти в оперативную память компьютера
7.сервисные программы это различные программы обслуживающие диски программы-архиваторы программы для борьбы с компьютерными вирусами коммуникационные программы и многие другие
0,0(0 оценок)
Ответ:
TheCool111
12.06.2020 07:38
Procedure swap(var a, b: real);
var t: real;
begin
     t := a;
     a := b;
     b := t;
end;

var a, b, c: real;
begin
     readln(a, b, c);
     if (a > b) then swap(a, b);
     if (b > c) then swap(b, c);
     if (a > b) then swap(a, b);
     writeln(a, ' ', b, ' ', c);
end.

Без процедур:

var a, b, c, t: integer;
begin
     readln(a, b, c);
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     if (b > c) then
     begin
          t := b;
          b := c;
          c := t;
     end;
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     writeln(a, ' ', b, ' ', c);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота