Var a,n,s:integer;
begin
n:=0; s:=0;
readln(a);
while a<>0 do
begin
n:=n+1;
if a mod 2=0 then s:=s+a;
readln(a);
end;
writeln('n = ',n,' s = ',s);
end.
Пример:
5
2
8
7
3
0
<span>n = 5 s = 10</span>
<span>Термином "информатика" обозначают совокупность дисциплин, изучающих свойства информации, а также способы представления, накопления, обработки и передачи информации с помощью технических средств.</span> На Западе применяют другой
термин «computer science» – компьютерная наука.
Ядро информатики – информационная
технология как совокупность конкретных технических и программных средств, с
помощью которых мы выполняем разнообразные операции по обработке информации во
всех сферах нашей жизни и деятельности.Иногда <u /><em>информационной технологией</em><span> называют компьютерной технологией или даже прикладной информатикой.
</span>Центральное место в ПРИКЛАДНОЙ ИНФОРМАТИКЕ занимает <em>компьютер</em> (от английского слова COMPUTE - вычислять) - техническое устройство для обработки информации. Его также часто называют <em>электронной вычислительной машиной</em> (ЭВМ<span>).
</span>В школьном курсе информатики вы будете изучать <u>ОСНОВЫ СОВРЕМЕННОЙ ИНФОРМАЦИОННОЙ ТЕХНОЛОГИИ.</u>
Познакомьтесь с принципами работы программно-технических с редакторами - PAINTBRUSH, WORD, EXCEL.
Смотря сколько мест на одном столе: если 4 - 64, если 5- 80