Первое:
var cookie = 25, milk = 10, coffee = 3; var count_cookie = 0.5, count_milk = 2, count_coffee = 5; var money = 50;
function ТчкЗпт(ч) { return String(ч).replace(".",","); }
document.write("Печенье в клеточку: " + cookie + " грн * " + ТчкЗпт(count_cookie) + " = " + ТчкЗпт(cookie * count_cookie) + "<br />");
document.write("Молоко бычье: " + milk + " грн * " + ТчкЗпт(count_milk) + " = " + ТчкЗпт(milk * count_milk) + "<br />");
document.write("Кофе: " + coffee + " грн * " + ТчкЗпт(count_coffee) + " = " + ТчкЗпт(coffee * count_coffee) + "<br /><br />");
document.write("Наличка: " + money + "<br />");document.write("Сдача: " + (money - cookie * count_cookie - milk * count_milk - coffee * count_coffee));
Второе:
var a=85;
var n1=a%10;
var n2= (a - n1) / 10;
var a=851;
var n1=a % 10;
var n2= (a % 100 - n1) / 10;
var n3= (a - n2 * 10 - n1) / 100;
var a=8511;
var n1=a % 10;
var n2= (a % 100 - n1) / 10;
var n3= (a % 1000 - n2 * 10 - n1) / 100;
var n4= (a - n3 * 100 - n2 * 10 - n1) / 1000;
Ответ:
Текст
Объяснение:
Информационный объём 1 сообщения равен произведению количества K символов в сообщении на информационный вес i символа алфавита: I=К⋅i
Т.к. формат текстового файла предназначен для хранения именно текста и на 1 символ (букву) в нём обычно тратится от 1 до 2 байтов, то такой формат наиболее оптимален по соотношению количества информации к физическому объёму файла.
В растровом (картинка) формате хранится информация о пикселах и их цвете, поэтому на один символ даже в чёрно-белом формате тратится объём данных для изображение матрицы точек минимум 8х8, соответствующей графическому изображению символа.
8*8*1=64 бит = 8 байт - для такой буквы.
Видео формат содержит в себе набор растров + еще и аудио-информацию, поэтому он занимает наибольший физический объём при наименьшем информационном объёме.
Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231
Обычно размер указывают, раз нету, взял по дефолту 10(Const N=10). И диапазон какой-то странный, думаю имелось введу (-5;5)
Program G;
Uses Crt;
Const N=10;
Var i: integer; mass: array [1..n] of integer;
Begin
Randomize;
ClrScr;
Writeln('Исходный массив из 10 чисел диапозона (-5;5):');
For i:=1 to N do
Begin
Mass[i]:=Random(11)-5;
Write(Mass[i]:4);
End;
Writeln;
Writeln('Исходный массив после замены всех отрицательны на -1:');
For i:=1 to N do
If mass[i]<0 then mass[i]:=-1;
For i:=1 to N do write(Mass[i]:4);
Readln;
<span> End.</span>
var x:integer;
Begin
write ('Введите х='); readln(x);
if x>0 then
write('Положительное')
else
write('Отрицательное');
<em>if x=0 then write('равно нулю')
</em>
end.
ну просто добавить еще одно условие. Ну можно еще условие в условие добавить, а как еще хз.