begin
var a := 1234567;
var s := 0;
while a > 0 do
begin
s += Ord(a mod 10 mod 2 = 0);
a := a div 10;
end;
s.Println;
end.
<span>Термином "информатика" обозначают совокупность дисциплин, изучающих свойства информации, а также способы представления, накопления, обработки и передачи информации с помощью технических средств.</span> На Западе применяют другой
термин «computer science» – компьютерная наука.
Ядро информатики – информационная
технология как совокупность конкретных технических и программных средств, с
помощью которых мы выполняем разнообразные операции по обработке информации во
всех сферах нашей жизни и деятельности.Иногда <u /><em>информационной технологией</em><span> называют компьютерной технологией или даже прикладной информатикой.
</span>Центральное место в ПРИКЛАДНОЙ ИНФОРМАТИКЕ занимает <em>компьютер</em> (от английского слова COMPUTE - вычислять) - техническое устройство для обработки информации. Его также часто называют <em>электронной вычислительной машиной</em> (ЭВМ<span>).
</span>В школьном курсе информатики вы будете изучать <u>ОСНОВЫ СОВРЕМЕННОЙ ИНФОРМАЦИОННОЙ ТЕХНОЛОГИИ.</u>
Познакомьтесь с принципами работы программно-технических с редакторами - PAINTBRUSH, WORD, EXCEL.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var R := Sqrt(ReadReal('x=')+Pi/4);
R.Println;
end.
<h2>Пример</h2><h3>x= 45.3243</h3><h3>6.79041222337771 </h3>
Если символ кодируется одним байтом, то количество символов = 128/1 = 128.
Если символ кодируется двумя байтами, то количество символов = 128/2 = 64.