Відповідь:
Дивись фото
Пояснення:
<!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>
готово. PascalABC
Объяснение:
program tri_chisla;
var n1, n2, n3: real;
begin
WriteLn('Ввод трех чисел и расположение их в убывающем порядке с заменой значений.');
Write('Введите значения n1, n2 и n3 через пробел >>> ');
ReadLn(n1, n2, n3);
if n1 < n2 then Swap(n1, n2);
if n2 < n3 then Swap(n2, n3);
if n1 < n2 then Swap(n1, n2);
WriteLn('n1=',n1,' n2=',n2,' n3=',n3);
end.
program func_L;
var
l: real;
x, y, z: integer;
begin
repeat
WriteLn('Введите значения x, y и z');
Write('Условие: (x-y-z) должно быть больше 0 >>');
ReadLn(x, y, z);
until (x - y - z) > 0;
l := x * y * z - ((abs(x)+abs(y)+abs(z))/(2 * sqrt(x - y - z)));
WriteLn('L = ', l);
end.
program chislo_a;
var
a: integer;
begin
Write('Введите число a >> ');
ReadLn(a);
if a >= 0 then WriteLn('Больше или равно нулю')
else WriteLn('Меньше нуля');
end.
