Question

ПОМОГИТЕ С ДЗ ПО ИНФОРМАТИКЕ!
Задание. Построить алгоритмы с помощью служебных слов в тетради и
графическим способом, используя встроенный графический редактор программы MSWord.
1.С клавиатуры вводятся N натуральных чисел. Рассчитать, сумму четных и
произведение нечетных чисел.

Answer 1

Ответ:

var i,n,x,summa,count:integer;

nechet:boolean;

begin

Writeln('Vvedite n: ');

readln(n);//получаем n

summa:=0;

count:=0;

i:=1;

if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет

while i<n do begin//пока число меньше n

if(nechet) then//если число нечентное

begin

summa:=summa+i*i*i;//прибавляем к сумме куб этого числа

end

else//если число четное

begin

summa:=summa+i*i;//прибавляем квадрат числа

end;

i:=i+1;//прибавляем число на 1

end;

writeln(' summa: ', summa);//выводим сумму

readln();

end.