Var n,m,k:integer; begin write('n='); readln(n); k:=0; while n>0 do begin m:=n mod 10; if m mod 2 = 0 then k:=k+1; n:=n div 10; end; writeln('k=',k); end.
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Степень полинома:'); var p:=ReadArrReal('Коэффициенты полинома по убыванию степеней:',n+1); var a:=ReadReal('Значение А:'); var q:=new real[n+2]; q[0]:=p[0]; q[n+1]:=-p[n]*a; for var i:=1 to n do q[i]:=p[i]-a*p[i-1]; Writeln('Коэффициенты результирующего полинома'); q.Println end.
Результат выполнения программы Степень полинома: 2 Коэффициенты полинома по убыванию степеней: 3 -4 5 Значение А: 2.5 Коэффициенты результирующего полинома 3 -11.5 15 -12.5
Сравнение диаграмм занятие сомнительное. Что Excel, что Word - они совместимы друг с другом, из одного можно экспоритровать в другой без проблем. Но все же постараемся выделить плюсы и минусы.
Плюсы: быстрота построения. То есть прямо "на коленке" можно сделать диаграмму не прибегая к сторонней Делаешь доклад и прямо тут же делаешь диаграмму. Минусы: урезанный функцианал. Для построения все же лучше использовать Excel (все таки Word это текстовый процессор и полноценного функционала для построения диаграмм от него не стоит ожидать) Да собственно и все. Больше никакой разницы нет.
begin
write('n='); readln(n);
k:=0;
while n>0 do
begin m:=n mod 10;
if m mod 2 = 0 then k:=k+1;
n:=n div 10;
end;
writeln('k=',k);
end.
Пример:
n=123456
k=3