М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mkovalenko730
mkovalenko730
25.02.2022 03:44 •  Информатика

Вквадратной комнате шириной а и высотой b есть окно и дверь с размерами c на d и m на n вычслите площадь стен для оклеиванья их обоями. составьте блок-схему алгоритма программу на языке паскаль для решения поставленной

👇
Ответ:
Sanya19367
Sanya19367
25.02.2022

Алгоритм:

1) Узнать площадь всех стен комнаты. (S₁=a*b*4)

2) Узнать суммарную площадь окна и двери. (S₂=c*d+m*n)

3) Вычесть от всей площади суммарную площадь окна и двери. (S=S₁-S₂)


Блок-схема в приложении.


Код PascalABC:

var

 a, b, c, d, m, n: integer;

begin

 readln(a, b, c, d, m, n);

 writeln(a * b * 4 - (c * d + m * n));

end.

4,6(96 оценок)
Открыть все ответы
Ответ:
джанил
джанил
25.02.2022

1. 1. количество чисел в базисе

2. 2. значение каждой цифры зависит от ее позиции в числе

3. 1. первичная

4. 2. 0-7

5. 3. 1111

6. 3. шиной

7. 4. на машинном языке (в двоичном коде).

8. 5. тактовой частоты процессора.

9. 6. быстродействие, объем памяти, разрядность.

10. 5. Совокупность проводящих каналов для передачи сигналов между микропроцессором и аппаратными устройствами.

11. 4. регистром;

12. 2. АЛУ, УУ, ОП, сопроцессор;

13. 2. Производит арифметические и логические действия над операндами;

Объяснение:

4,8(62 оценок)
Ответ:
dmitrius2
dmitrius2
25.02.2022
Uses graphabc;

var
    i, c: integer;
    ar: array[1..5]of integer;

begin
  for i := 1 to 5 do read(ar[i]);
  window.IsFixedSize := true;
  window.Init(0, 0, 800, 800, clDarkGray);
  window.CenterOnScreen;
  SetFontSize(32);
  for i := 1 to 5 do c := c + ar[i].ToString.Length;
  for i := 1 to 7 do writeln;
  write(' ':33 - c);
  for i := 1 to 5 do
  begin
    if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then
     begin
      SetFontColor(clred);
      write(ar[i]);
    end
    else if(ar[i] mod 10 = 0) then
      begin
      SetFontColor(clblue);
      write(ar[i]);
    end
    else if(ar[i] mod 2 <> 0) then
    begin
      SetFontColor(clyellow);
      write(ar[i]);
    end
  end;
 end.
4,7(67 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ