Написать программу, которая для первых n натуральных чисел находит сумму чётных и произведение нечётных чисел. число n вводится с клавиатуры . выполнить программу для n=13 , записать результат
Const n=13; var i,s,p:integer; begin s:=0; p:=1; for i:=1 to n do begin if (i mod 2 = 0) then s:=s+i; if (i mod 2 <> 0) then p:=p*i; end; writeln("Сумма четных = ",s," , произведение нечетных =",p); end.
.Кто-то (пускай будет Петя) спросил домашние задание у другого человека ( пускай будет у Васи), Вася ему ответил и получается, что Вася передал информацию,Петя получил и использовал что бы решить домашку.2.Живое существо своими органами чувств (глаз, ухо, кожа, язык и т.д.) воспринимает информацию из внешнего мира, перерабатывает её в определенную последовательность нервных импульсов, передает импульсы по нервным волокнам, хранит в памяти в виде состояния нейронных структур мозга, воспроизводит в виде звуковых сигналов, движений и т.п., использует в процессе своей жизнедеятельности.
-е поколение (начало 50-х гг.). Элементная база – электронные лампы. ЭВМ отличались большими габаритами, большим потреблением энергии, малым Быстродействием, низкой надежностью, программирова-нием в кодах. 2-е поколение (с конца 50-х гг.). Элементная база – полупроводниковые элементы. Улучшились по сравнению с ЭВМ предыдущего поколения все технические характеристики. Для программирования используются алгоритмические языки. 3-е поколение (начало 60-х гг.). Элементная база – интегральные схемы, многослойный печатный монтаж. Резкое снижение габаритов ЭВМ, повышение их надежности, увеличение производительности. Доступ с удаленных терминалов. 4-е поколение (ссередины 70-х гг.). Элементная база – микропроцессоры, большие интегральные схемы. Улучшились технические характеристики. Массовый выпуск персональных компьютеров. Направления развития: мощные многопроцессорные вы-числительные системы с высокой производительностью, создание дешевых микроЭВМ. 5-е поколение (с середины 80-х гг.). Началась разработка интеллектуальных компьютеров, пока не увенчавшаяся успехом. Внедрение во все сферы компьютерных сетей и их объединение, использование распределенной обработки данных, повсеместное применение компьютерных информационных технологий.
var i,s,p:integer;
begin
s:=0; p:=1;
for i:=1 to n do begin
if (i mod 2 = 0) then s:=s+i;
if (i mod 2 <> 0) then p:=p*i;
end;
writeln("Сумма четных = ",s," , произведение нечетных =",p);
end.