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

Дано целое число, если оно делиться на 3 без остатка то увеличить его на 1; в противном случае уменьшить его на 2. на паскале

👇
Ответ:
akmallobanov
akmallobanov
16.04.2020

var

  x: longint;

 

begin

  write('Введите число ');

  readln(x);

  if x mod 3 = 0 then //Если х делится на 3, то...

    x := x + 1                 //Увеличиваем х на 1

  else                          //В противном случае

    x := x - 2;                 // Уменьшаем на 2

  writeln('Результат: ',x); //Вывод полученого числа

end.

4,7(79 оценок)
Ответ:
Sveta11111111Love
Sveta11111111Love
16.04.2020

uses crt; {подключение модуля CRT}
var
  x: integer; {описание переменных}
begin {начало программы}
  writeln('vvedi chislo: '); {вывод текста на экран}

  read(x); {чтение введеных данных}
  if (x mod 3 = 0) then x:=x+1 {условие}
    else x:=x-2; {если условие не выполняется}
  write('rezultat: ',x); {вывод текста на экран}
end. {конец программы}

4,5(7 оценок)
Открыть все ответы
Ответ:
Ехепхеп
Ехепхеп
16.04.2020

1)операцио́нная систе́ма, сокр. ос — комплекс взаимосвязанных программ, предназначенных для ресурсами компьютера и организации взаимодействия с пользователем.

2)   1.       обмен данными между компьютером и различными периферийными устройствами (терминалами, принтерами, гибкими дисками, жесткими дисками и т. такой обмен данными называется "ввод/вывод данных".

    2.       обеспечение системы организации и хранения файлов.

    3.       загрузка программ в память и обеспечение их выполнения.

    4.       организация диалога с пользователем.

3)windows, linux, mac os.

4)android

5)unix — семейство переносимых, и многопользовательских операционных систем.

6)сори но я не знаю и в интернете нет(

7)сначала отметим минусы linux.

-   сложность первоначальной настройки системы

-   возможные конфликты с неподдерживаемым оборудованием

-   нет аналогов некоторых программ для windows (игры, узкоспециализированные программы).

8)теперь рассмотрим плюсы linux.

-   свободное распространение

-   стабильность

-   низкие системные требования

-   отсутствие вирусов (вследствие этого нет надобности в антивирусе)

-   полная свобода действий (возможность настраивать, как угодно)

-   большое количество дистрибутивов – вы можете выбрать дистрибутив согласно своей философии

-   практически весь софт бесплатен

-   поддерживает множество аппаратных платформ

-   в большинстве случаев в дистрибутив входит набор по, с которого можно выполнить любую

10) -   предельно легкая настройка

-   не требует знания технических деталей от пользователя

-   интуитивность использования

-   удобная организация окон – все окна видимы и нет необходимости переключаться между ними.

-   установлен базовый набор по

- отсутствие вирусов

11)

  высокая стоимость компьютеров с mac os x

-   закрытая архитектура компьютеров – нет возможности провести модернизацию оборудования

-   малое количество игр

12)windows — семейство коммерческих операционных систем (oc) корпорации microsoft

4,7(15 оценок)
Ответ:
ZlushiyPlayar
ZlushiyPlayar
16.04.2020
                                     PascalABC.NET                                       beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');Println(' при последовательном соединении -', Rs.Sum,'Ом');Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');end.

или кратко:

beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.

Пример работы:


решите нужно очень (составить программу определения общего сопротивления электрической цепи при посл
решите нужно очень (составить программу определения общего сопротивления электрической цепи при посл
4,4(54 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ