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

ответ надо на эти вопросы: 1. What are there measures and the protection of the media?
2. Standarts and information security specifications?
3. When is founded a law on information security?

Показать ответ
Ответ:
GNRK
GNRK
05.11.2022 02:46

Внешний вид

Существует много информации, касающейся используемых инструментов в последних версиях программы от Microsoft, к примеру, так называемых "лент". Последняя представляет собой совокупность меню и различных панелей инструментов. Работа с таким интерфейсом весьма удобна и позволяет любому пользователю в течение недолгого времени легко адаптироваться к ней. Основная же проблема заключается не в сущности идеи ленты, а касается неудобного размещения элементов на ее поверхности, вопреки большим стараниям разработчиков свести схожие по назначению функции вместе. Найти настройки, к примеру, доставляет немало сложностей, а сведение некоторых инструментов имеет вид скорее хаотичный, нежели старательно упорядоченный. Так, к примеру, привычные по старым версиям функции в меню "Файл" и "Правка" в последних версиях встречаются в разбросанном виде по меню "Главная" и "Вставка". Такие нововведения могут доставить некоторые неудобства пользователям, привыкшим к элементам из меню "Файл" и "Правка".

Объяснение:

0,0(0 оценок)
Ответ:
NinCom
NinCom
24.01.2023 14:08

program Z1;

var

 ch, s: integer;

begin

 writeln('введите последовательность натуральных чисел, оканчивающихся 0');

 readln(ch);

 s := 0;

 while ch <> 0 do

 begin

   if odd(ch) and (ch mod 10 = 3) then

     s := s + 1;

   readln(ch);

 end;

 writeln('s = ', s);

end.

*****************************************************

var

 max, ch: integer;

begin

 writeln(' введите последовательность натуральных чисел, оканчивающихся 0');

 readln(ch);

 max := ch;

 while ch <> 0 do

 begin

   if (ch > max) and (ch <> 0) then

     max := ch;

   readln(ch);

 end;

 writeln('max =', max);

end.


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