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

Написать одну программу для подсчета арифметических выражений.


Написать одну программу для подсчета арифметических выражений.

Показать ответ
Ответ:
MashaKun
MashaKun
01.04.2023 01:35

С одной стороны, электронные страницы – это хорошо, меньше вреда наносится окружающей среде, да и хранить большое количество информации легче и удобнее в электронном виде. С другой стороны – человечество становится все более зависимым от техники.  Многие даже представить себе не могут, что будут делать,  если, например, забудут дома телефон, это приравнивается к трагедии. Велико число тех, кто  просто убивает время в социальных сетях, живое общение заменяется  набором букв на компьютере, а жесты и мимика  –  смайликами. Да, это хорошо для тех, кто находится далеко друг от друга, или в силу каких – то других причин просто физически не могут увидеться. Но мы злоупотребляем такими благами, так как, живя по соседству – общаемся посредством сети и устройств. Люди просто перестали ходить в гости и просто видеться. То, насколько мы будем зависимы от компьютера – определяем мы сами. Человек сам определяет, на что тратить время, как проживать жизнь. И если использовать ИТ и другие блага только в полезных целях  и в меру – жить станет легче не только нам, но и будущим поколениям, и им не придется страдать от нашей невнимательности и лени.

Объяснение:

0,0(0 оценок)
Ответ:
diankapazyukа
diankapazyukа
26.10.2022 17:26
Program z13;  Var a: array [1..1000] of integer;       b: array [1..1000] of integer;       i,j,n,k:integer;Begin  write('Введите N = '); readln(n);  for i:=1 to n do  begin    write('N[',i,'] = ');    readln(b[i]);  end;    for i:=1 to n do    write(b[i],' ');  writeln;    for i:=1 to n do    a[i]:= b[i];      for i:=1 to n-1 do    for j:=1 to n-1 do      if (a[j] > a[j+1]) then swap(a[j],a[i+1]);    k:=0;  for i:=1 to n do    if(a[i] = b[i]) then k:= k + 1;      if (k = n) then writeln('Все элементы массива упорядочены по возрастанию')             else writeln('Элементы не упорядочены');End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота