<span>Приклад 1. Скласти
алгоритм обчислення і роздрукування значення виразу у = (Ax+B)(Cx+D). 1. Ввести значення А, В, С, D, х. 2. Обчислити у = (Ax+B)(Cx+D). 3. Роздрукувати у. <span>4. Процес обчислення завершити.</span></span>
Ответ:
Ростелеком
Объяснение:
Ростелеком в январе 2006 купили за 100, а продали в марте 2007 за 200 (+100)
Роснефть в январе 2006 купили за 200, а продали в марте 2007 за 225 (+25)
Газпром в январе 2006 купили за 250, а продали в марте 2007 за 275 (+25)
var n,i,rez:integer;
begin
write('Введите n: ');
readln(n);
rez:=0;
for i:=1 to n do
if odd(i) then rez:=rez+i
else rez:=rez-i;
writeln('rez=',rez);
end.