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

Используя текст выполненной в практической работе компьютерной
программы, написать в рабочей тетради комментарии для применяемых в
программе операторов и математических выражений, заключив их в фигурные
скобки. Pascal

Показать ответ
Ответ:
ailina26
ailina26
29.05.2020 16:56

1.    На Рабочем столе размещаются небольшие картинки — значки и ярлыки объектов (ярлык — это картинка с небольшой стрелочкой в нижнем левом углу). Они обеспечивают быстрый доступ к объектам — различным устройствам и программам компьютера, а также текстам, рисункам и другим документам, созданным с компьютерных программ.
Значок Мой компьютер обеспечивает доступ к различным устройствам компьютера. В Корзину отправляется «мусор» — всё то, что уже не нужно хранить в памяти компьютера. А значок Мои документы быстро найти созданные вами рисунки и другие документы. Если ваш компьютер связан с другими компьютерами, то на Рабочем столе обязательно присутствует значок Сетевое окружение.

0,0(0 оценок)
Ответ:
MariCasanova
MariCasanova
14.08.2022 20:48
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите через пробел a,b:');
  Writeln(a,' + ',b,' = ',a+b);
  Writeln(a,' - ',b,' = ',a-b);
  Writeln(a,' * ',b,' = ',a*b);
end.

Пример
Введите через пробел a,b: -3.6 2.15
-3.6 + 2.15 = -1.45
-3.6 - 2.15 = -5.75
-3.6 * 2.15 = -7.74

begin
  var n:=ReadInteger('n=');
  var a:=ReadReal('a=');
  var p:=1/a;
  var s:=p;
  for var i:=1 to n do begin p/=(a+i); s+=p end;
  Writeln(s)
end.

Пример
n= 6
a= 2.4
0.57315329840095

begin
  var n:=ReadInteger('n=');
  var s:=ReadSeqReal('Введите '+n+' чисел:',n).Select(x->Abs(x)).Sum;
  Writeln('Сумма модулей равна ',s)
end.

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