Program N1;
var a,c1,c2,c3: integer;
begin
writeln('Введите число');
read(a);
c1:=a mod 10;
c2:=(a div 10) mod 10;
c3:=(a div 100) mod 10;
writeln('Кол-во сотен = ',c3);
writeln('Кол-во десятков = ',c2);
writeln('Кол-во единиц = ',c1);
end.
Var age:integer;
begin
writeln('Сколько вам лет?');
readln(age);
if age<=0 then writeln("Так не бывает, т.к. вы ещё не родились и не можете писать");
if age>100 then writeln('Вы хорошо сохранились!') else writeln('<span>Лет до 100 расти вам без старости!</span>');
end.
Принтер (англ. Printer, от print — печать) — это внешнее периферийное устройство компьютера, предназначенное для вывода текстовой или графической информации, хранящейся в компьютере, на твёрдый физический носитель, обычно бумагу, малыми тиражами (от единиц до сотен) без создания печатной формы.
Этим принтеры отличаются от полиграфического оборудования и ризограффии, которое за счёт печатной формы быстрее и дешевле на крупных тиражах (сотни и более экземпляров).
Принтер — это высокотехнологичное устройство печати, созданное в первую очередь для работы с компьютером. Принтер предназначен для преобразования информации, хранящейся в вычислительном устройстве, из цифровой формы в аналоговый вид для доступного понимания этой информации пользователем и последующего долговременного её хранения.
Получили также распространение и другие устройства печати, такие, как многофункциональные устройства (МФУ), в которых в одном приборе объединены функции принтера, сканера, копировального аппарата и телефакса. Такое объединение рационально с технической и экономической стороны, а также удобно в работе.
Специализированной разновидностью принтера является <span>плоттерн</span>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var x1:=a.Where(x->x>0).Min;
var i1:=a.FindIndex(x->x=x1);
var x2:=a.Where(x->x<0).Max;
var i2:=a.FindIndex(x->x=x2);
Swap(a[i1],a[i2]); a.Println
end.
<u>Пример</u>
n= 16
-9 -8 1 -9 2 5 -6 7 5 -9 0 2 -6 -7 3 6
-9 -8 -6 -9 2 5 1 7 5 -9 0 2 -6 -7 3 6
Решение №1
Складываем степени двойки там где 1, где 0 будет 0:
2⁴+2²+2¹+2⁰ = 16+4+2+1 = 23
Решение № 2
10111₂ = 2⁵-1 - 2³ = 32 -1 -8 =23