Кол-во эскимо - 6
Осталось порций - 16
стаканчиков осталось - 15
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.
1) Внутреняя хранит память когда Пк включен, внешняя хранит память всегда и есть сво-ва хрнить её долгое время
2)
1. Программа вводится в комп и хранится в той же памяти. что и данные к ней
<span>2. Команды, составляющие программу, представляются в том же числовом коде, что и данные к ней. Это значит, что с кодом программы можно производить те же действия, что и с данными к ней. (Например, написать программу, которая сама меняет свой код, а затем выполняет его. Так получаются вирусы-невидимки :)</span>
3) Битовая структура определяет первое свойство внутренней памяти компьютера — дискретность. Дискретные объекты составлены из отдельных частиц. Например, песок дискретен, так как состоит из песчинок. «Песчинками» компьютерной памяти являются биты.
4) 1.Бит, (монета) англ., серебряная монета<span>2.Бит-самый маленький размер информации
</span>
5) Адресуемость. Во внутренней памяти компьютера все байты пронумерованы
6) Жесткий диск, SSD, HDD
7) <span>Первое поколение </span>
<span>CD </span>
<span>Лазерные диски </span>
<span>Магнито-оптические диски </span>
<span>Второе поколение </span>
<span>DVD </span>
<span>Третье поколение </span>
<span>На сегодняшний день третье поколение только внедряется. </span>
Blue Ray
Var
i, n, j, p, s: longint;
st: string;
b: boolean;
begin
s := 0;
b := false;
readln(n);
for i := 1 to n.ToString.Length do
s := s + strtoint(n.ToString[i]);
for i := 10 to n - 1 do
begin
st := i.ToString;
p := 1;
for j := 1 to st.Length do
p := p * strtoint(st[j]);
if(p = s) then begin b := true;writeln(i); end;
end;
if(b = false) then write('Нет');
end.