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

1. Мастеру строительной компании необходимо составить смету по покраске стен в 5 одинаковых комнатах офиса. Известны следующие параметры: Комната
высота - 2,5 м,
длина стен – 6 м и 4 м
Дверь
высота - 2 м,
ширина – 80 см
Окно
высота - 1,5 м,
ширина – 1,5 м

а сметчику построить табличную модель для определения количества необходимой краски, если одной банкой можно закрасить площадь с параметрами 5 м и 2 м.
) Укажите использованные имена полей таблицы
комната,дверь,окно

c) Напишите формулу нахождения площади покраски одной комнаты


d) Напишите формулу определения количества необходимой краски для всех комнат

Показать ответ
Ответ:
010Dasha010
010Dasha010
29.03.2023 11:06

Program fantscrin;

 const n = 10;

 Var a: array [1..n] of integer;

     i,j,k:integer; s:real;

Begin

 for i:=1 to n do

   a[i]:=random(20)-10;

 for i:=1 to n do

   write(a[i], '  ');

 for i:=1 to n do

   for j:=1 to n-1 do

     if (a[j]<a[j+1]) then

                      begin

                       k:=a[j];

                       a[j]:=a[j+1];

                       a[j+1]:=k;

                      end;

 writeln('');

 for i:=1 to n do

   write(a[i], '  ');

 s:=0;

 for i:=1 to n do

   if ((a[i] < 0)and(i mod 2=0)) then s:=s+1;

 writeln('');

 writeln(s);

End.

0,0(0 оценок)
Ответ:
vaxaxa1717
vaxaxa1717
29.03.2023 11:06

Program fantscrin;

 const n = 10;

 Var a: array [1..n] of integer;

     i,j,k:integer; s:real;

Begin

 for i:=1 to n do

   a[i]:=random(20)-10;

 for i:=1 to n do

   write(a[i], '  ');

 for i:=1 to n do

   for j:=1 to n-1 do

     if (a[j]<a[j+1]) then

                      begin

                       k:=a[j];

                       a[j]:=a[j+1];

                       a[j+1]:=k;

                      end;

 writeln('');

 for i:=1 to n do

   write(a[i], '  ');

 s:=0;

 for i:=1 to n do

   if ((a[i] < 0)and(i mod 2=0)) then s:=s+1;

 writeln('');

 writeln(s);

End.

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