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

Это мне на завтра за раннее ! целочисленные, логические, символьные и строковые типы данных. как это сделать? . вот пример но я не его понял. 3.3.2. целочисленный тип данных над целыми числами в языке паскаль выполняются следующие операции: сложение (+), вычитание (-), умножение (*), получение целого частного (div), получение целого остатка деления (mod) и деление (/). результаты первых пяти операций — целые числа. результатом операции деления может быть вещественное число. рассмотрим пример использования операций div и mod, записав на языке паскаль программу нахождения суммы цифр вводимого с клавиатуры натурального трёхзначного числа. используем тот факт, что положительное трёхзначное число можно представить в виде следующей суммы: х — а*100 + 6*10 + с, где а,ь,с — цифры числа. чему равна сумма цифр числа 123? а числа -123? ли ваши результаты с результатами работы программы? как можно объяснить и исправить ошибку в программе? 3.3.3. символьный и строковый типы данных значением символьной величины (тип char) в языке паскаль является любой из символов, который можно получить на экране нажатием на клавиатуре одной из клавиш или комбинации клавиш, а также некоторых других символов, в том числе и невидимых. множество таких символов состоит из 256 элементов, каждому из которых согласно используемой кодовой таблице поставлен в соответствие код — число 0 до 255. символы, соответствующие первым 32 , являются , а остальные — изображаемыми. к изображаемым символам относится и пробел, имеющий код 32. знакам препинания, знакам арифметических операций, цифрам, прописным и строчным латинским буквам соответствуют коды от 33 до 127. буквам национального алфавита соответствуют коды с номерами 128 и далее. в тексте программы константу символьного типа можно задать, заключив любой изображаемый символ в апострофы: '5', 'в', '*'. если значение символьной переменной считывается с клавиатуры, то его следует набирать без апострофов. чтобы найти код символа, используют функцию ord, где в качестве параметра символ. чтобы по коду узнать символ, используют функцию chr, где в качестве параметра указывают код символа. значением строковой величины (тип string) является произвольная последовательность символов, заключенная в апострофы. в паскале (как и в алгоритмическом языке) строки можно сцеплять. пример. запишем на языке паскаль программу, в которой для введённой с клавиатуры буквы на экран выводится её код. затем на экран выводится строка, представляющая собой последовательность из трёх букв используемой кодовой таблицы: буквы, предшествующей исходной; исходной буквы; буквы, следующей за исходной. 3.3.4, логический тип данных как известно, величины логического типа принимают всего два значения; в паскале это false и true. эти константы определены так, что false < true. логические значения получаются в результате выполнения операций сравнения числовых, символьных, строковых и логических выражений. поэтому в паскале логической переменной можно присваивать результат операции сравнения. пример. напишем программу, определяющую истинность высказывания «число п является чётным» для произвольного целого числа n. пусть ans — логическая переменная, а n — целая переменная. тогда в результате выполнения оператора присваивания ans: =n mod 2 = 0 переменной ans будет присвоено значение true при любом чётном n и false в противном случае. логическим переменным можно присваивать значения логических выражений, построенных с известных вам логических функций и, или, не, которые в паскале обозначаются соответственно and, or, not. пример. напишем программу, определяющую истинность высказывания «треугольник с длинами сторон а, b, с является равнобедренным» для произвольных целых чисел а, ь, с.

Показать ответ
Ответ:
domofon98
domofon98
05.03.2022 18:51

Відповідь:

Дивись код на фото

Пояснення:

<!DOCTYPE html>

<html>

<head>

  <title>Price</title>

  <meta charset="utf-8">

</head>

<body>

 <p>стоимости переговоров</p>

</body>

<script>

 {/*Написать логическое выражение для определения стоимости переговоров, если стоимость переговоров с 22 часов до 8 часов на 20% ниже, а в субботу и в воскресенье дополнительно предоставляется скидка 10%. */}

 t = +prompt('время разговоров от 0 до 24 часов')

 dt = +prompt('продолжительность разговора в минутах')

s = +prompt('стоимость минуты разговора')

 d = +prompt('день недели от 1 до 7')

 console.log('t=',t,'dt=', dt, 's=', s, 'd=', d)

 function Price (t, dt, d, s) {

  let startTalk = t*60

  let price = 0

  console.log('day = ', d)

 

  for (let i =1; i<=dt; i++){

   let night = false

   let holiday = false

   let p = s

   

   if( (startTalk+i)%1440 === 0 ){

    if (d<7){

     d=d+1

     console.log('day = ', d)

    } else {

     d=1

     console.log('day = ', d)

    }

   }

   if ( (startTalk+i)%1440>=1320 || (startTalk+i)%1440<480){

    night = true

   }

   if ( d === 6 || d===7){

    holiday = true

   }

   if (night){

    p = p - s*0.2

   

   }

   if (holiday){

    p = p-s*0.1

   }

   price = price+p

   

   console.log('стоимости '+ i+'мин. = '+ p.toFixed(2)+'$')

  }

  console.log('fin.price', price.toFixed(2), '$')

  return price.toFixed(2)

 }

 {/*Price(t, dt, d, s)*/}

 alert('стоимости переговоров  ' + '$' + Price(t, dt, d, s))

</script>

</html>

0,0(0 оценок)
Ответ:
сериаломанка13
сериаломанка13
23.03.2020 09:39
Function IsPrime(n: Longint): Boolean;
var i, sqrtn, delta: Word;
begin
  if (n >= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0) then begin
    i := 5;
    delta := 2;
    sqrtn := Trunc(sqrt(n));
    IsPrime := False;
    while i <= sqrtn do begin
      if n mod i = 0 then Exit;
      Inc(i, delta);
      delta := delta xor 6; {смена шага, то 2, то 4}
    end;
    IsPrime := True;
  end else
    IsPrime := (n = 2) or (n = 3);
end;
Var A,B,i : Integer;
Begin
  Readln(A,B);
  For i:=A to B do If IsPrime(i) then Writeln(i);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота