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

Написать программу вычисления выражения: не(pred(c) или (ord(c)= при c= folse

👇
Открыть все ответы
Ответ:
юля2738
юля2738
11.12.2021
1)область деятельности, в которой компьютеры используются в качестве инструмента, как для синтеза  изображений, так и для обработки визуальной информации, полученной из реального мира.
2)Компьютеры,телефоны ,для получения инфы и отбражения графики
3)это устройство для автоматического вычерчивания с больщой точностью рисунков,схем и т.п
4)Alt+Tab - Переключение между окнами 

Win+Tab - Переключение между окнами в режиме Flip 3D 
Win+Up - Развернуть окноWin+Down - Восстановить / Минимизировать окно 
Win+Left - Прикрепить окно к левому краю экрана 
Win+Right - Прикрепить окно к правому краю экрана 
Win+Shift+Left - Переключиться на левый монитор 
Win+Shift+Right - Переключиться на правый монитор 
Win+Home - Минимизировать / Восстановить все неактивные окна 
Win+Break(или Pause) - Запустить элемент Система из Панели Управления (пункт Свойства при нажатии правой кнопкой мыши на Компьютер в меню Пуск) 
Win+Space - Показать рабочий стол 
Win+B - Переход в область уведомлений(трей) 
Win+D - Свернуть окна или восстановить все окна 
Win+E - Запустить Проводник(Explorer) 
Win+F - Запустить встроенный диалог поиска Windows 
Win+Ctrl+F - Запустить Поиск по компьютеру из домена 
Win+F1 - Запустить встроенный диалог Windows: Справка и Поддержка 
Win+G - Отобразить гаджеты поверх всех окон 
Win+L - Блокировка рабочей станции(текущего сеанса пользователя) 
Win+M - Минимизировать все окна 
Win+P - Отобразить дополнительные опции дисплея (расширить рабочий стол на 2 монитор и т.п.) 
Win+R - Запустить диалоговое окно Выполнить 
Win+Т - Выбрать первый элемент в панели задач (Повторное нажатие переключает на следующий элемент, Win+Shift+T - прокручивает в обратном порядке) 
Win+U - Запустить Центр специальных возможностей (Ease of Access Center) 
Win+X - Запустить Mobility Center 
Win+цифра- Запустить приложение с панели задач (Win+1 запускает первое приложения слева, Win+2, второе, и т.к.) 
Win + "+" - Увеличить масштаб 
Win + "-" - Уменьшить масштаб 
Ctrl + колесо мыши (вверх\вниз) на рабочем столе - увеличить\уменьшить иконки рабочего стола.

В Проводнике (Explorer):
Alt+P - Показать / Скрыть Область предпросмотра

Панель задач:
Shift + щелчок на иконке - Открыть новое окно приложения 
Ctrl + Shift + щелчок по иконке - Открыть новое окно приложения с привилегиями администратора 
Shift + щелчок правой кнопкой на иконке - Показать меню приложения 
Shift + щелчок правой кнопкой на группе иконок - Показать меню, восстановить все / cвернуть все / Закрыть все 
Ctrl + щелчок по группе икнонок - Развернуть все окна группы

5)Вырезать, копировать ,вставить и т.п

4,7(80 оценок)
Ответ:
Сначала код без комментариев:

Var
S:longint;
i:integer;
A:byte;

Begin
S:=0;
Repeat
   Read(A);
   if (A mod 2 <> 0)and(A mod 7 = 0) then S:=S+A;
Until A = 0;
WriteLn('S = ',S);
End.

Теперь объяснение каждой строки:

Var
S:longint;
i:integer;
A:byte; // В эту переменную будет вводится число с клавиатуры. Тип Byte может принимать значения от 0 до 255. Поэтому его как раз хватит.

Begin
S:=0; // Тут будет храниться сумма, поэтому переменную следует сперва обнулить.

Repeat // далее начинается цикл
   Read(A); // эта команда каждый раз считывает с клавы число, и записывает его в переменную A.

   if (A mod 2 <> 0)and(A mod 7 = 0) then S:=S+A; //тут проверяется 2 условия, и если они выполняются - к переменной S прибавляется значение переменной А
   1 условие: число нечётно, то есть остаток от деления его на 2 не равен нулю (A mod 2 <>0)
   2 условие: Число кратно 7, то есть делится без остатка на 7, то есть остаток от деления равен нулю (A mod 7 = 0)

Until A = 0; // Цикл повторяется до тех пор, пока введённое с клавы число не будет равно нулю (A = 0)

WriteLn('S = ',S); // Тут выводится искомая сумма
End.
4,7(70 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ