Из за того что сумма в начале равняется единице, то при конечном выводе суммы она всегда будет больше чем нужно на единицу, а при ненахождении чётных чисел вывод будет 1 , а не 0Проверяется чётность номера введённого числа а не само число, то есть если число было введено вторым, но при этом оно нечётное, то программа считает его как чётноеПравильный вариант программы
Информатизация – это производное от слова информация. Информатизация – это процесс получения, использования, хранения, передачи информации. На протяжении ХХ века сменялось множество обмена информацией. Если в XIX веке носителем информации была бумага, а средством передачи была почтовая служба, то в ХХ веке информация стала передаваться гораздо быстрее с телеграфа, в голосовой форме обмениваться информацией можно по телефону, радио и телевидение призваны только для получения человеком информации. В наши дни есть огромное количество передачи информации, причем в любой форме. Телефонные линии до сих пор остаются самым удобным средством передачи информации, но теперь ими обслуживаются не только телефоны, но и самое большое достижение процесса информатизации – Internet, содержащий большую часть информации со всей планеты. Сейчас информатизация не мыслима без компьютера, так как он изначально создавался как средство обработки информации и только теперь он стал выполнять множество других функций: хранение, преобразование, создание и обмен информацией. Но прежде чем принять привычную сейчас форму компьютер претерпел три революции. Первая компьютерная революция свершилась в конце 50-х годов; ее суть можно описать двумя словами: компьютеры появились. Изобретены они были не менее чем за десять лет до этого, но именно в то время начали выпускаться серийные машины, эти машины перестали быть объектом исследований для ученых и диковинкой для всех остальных. Через полтора десятилетия после этого ни одна крупная организация не могла себе позволить обходиться без вычислительного центра. Если тогда заходила речь о компьютере, сразу же представлялись заполненные стойками машинные залы, в которых напряженно думают люди в белых халатах. И тут свершилась вторая революция. Практически одновременно несколько фирм обнаружили, что развитие техники достигло такого уровня, когда вокруг компьютера не обязательно воздвигать вычислительный центр, а сам он стал небольшим. Это были первые мини-ЭВМ. Но еще десять с небольшим лет, и наступила третья революция – в конце 70-х возникли персональные компьютеры. За короткое время, пройдя путь от настольного калькулятора до полноценной небольшой машины, ПК заняли свои места на рабочих столах индивидуальных пользователей. Компьютер – это самое популярное средство для обработки, хранения и передачи информации и по сей день, но так как в наши дни информации становится все больше, то и компьютеры претерпевают значительные изменения. Для удобства пользователей стали выпускаться, переносные и карманные компьютеры, подключенные к глобальной информационной сети Internet, чтобы пользователь мог получить необходимую информацию в любом месте, в удобное для него время. Но так как потоки информации только увеличиваются то для ее создания, обработки, хранения и передачи необходимо разрабатывать все новые и новые средства и при Существует множество компаний и корпораций, специализирующихся на разработках программного обеспечения, операционных систем, усовершенствовании и разработке новых более совершенных компьютеров, при для ввода и вывода информации, аксессуаров для удобства обращения с компьютером и ускорения обработки информации.
var n, s: longint;
i: integer;
begin
s:=1 ;
for i:=1 to 6 do begin
readln(n);
if i mod 2 = 0 then
s := s + n;
end;
write(s);
end.
Из за того что сумма в начале равняется единице, то при конечном выводе суммы она всегда будет больше чем нужно на единицу, а при ненахождении чётных чисел вывод будет 1 , а не 0Проверяется чётность номера введённого числа а не само число, то есть если число было введено вторым, но при этом оно нечётное, то программа считает его как чётноеПравильный вариант программыvar n, s: longint;
i: integer;
begin
s:=0;
for i:=1 to 6 do begin
readln(n);
if n mod 2 = 0 then
s := s + n;
end;
write(s);
end.