Var
n,e,d,s,sum: integer;
begin
writeln ('vvedi cislo n');
read (n);
if (n<100) or (n>999) then writeln ('False');
if (n>100) and (n<999) then
begin
e:= (n mod 10);
writeln ('e',e);
s:=(n div 100);
writeln ('s',s);
d:=(n div 10)-s*10;
writeln ('d',d);
sum:=s+d+e;
writeln ('sum',sum);
if sum=13 then writeln ('Enter')
else
writeln ('Lock');
end;
end.
Ответ:
Объяснение:
ИНФОРМАТИКА
- наука об общих свойствах информации, закономерностях и методах её поиска и получения, записи, хранения, передачи, переработке, распространения и использования в разл. сферах человеческой деятельности. Формирование И. как науки связано с появлением и развитием электронно-вычислит. техники. Опыт моделирования, построения алгоритмов и составления программ для решения конкретных научных и техн. задач на ЭВМ, согласования мощности и структуры вычислит, средств со сложностью и характером этих задач стали важнейшей частью и Эта предметная область остаётся для И. основной и допускает более узкое и конкретное толкование термина "И." как науки о процессах и методах обработки информации. <И. объединяет все вопросы применения вычислит, техники, стимулирует её совершенствование и определяет пути её развития. <И. включает теорию кодирования информации, разработку языков и методов программирования, матем. описание процессов обработки и передачи информации (см. Теория информации).
1*2^4+1*2^2+1*2^0 = 10101(2)
1*2^4+1*2^2+1*2^0 = 16+4+1 = 21(10)