Ответ:
Объяснение:
1. read(a,b,c); вместо read('a,b,c');
2. Добавить скобку после 4ас f: =(-b+sqrt(sqr(b)+4*a*c))/(2*a)+abs(c);
Сравнение диаграмм занятие сомнительное. Что Excel, что Word - они
совместимы друг с другом, из одного можно экспоритровать в другой без
проблем. Но все же постараемся выделить плюсы и минусы.
Плюсы:
быстрота построения. То есть прямо "на коленке" можно сделать диаграмму
не прибегая к сторонней помощи. Делаешь доклад и прямо тут же делаешь
диаграмму.
Минусы: урезанный функцианал. Для построения все же лучше
использовать Excel (все таки Word это текстовый процессор и
полноценного функционала для построения диаграмм от него не стоит
ожидать)
Да собственно и все. Больше никакой разницы нет.
1. 1305
Ответ на 1 вопрос ну либо там со знаком минус
Ничего не будет напечатано, так как в программе кроме большого количества опечаток есть и явная ошибка: переменная sr не может иметь тип integer (это следует из оператора <span>sr:=s/3).</span>
Uses crt;
Var
n,n1,n2,n3,n4,i,Armst:integer;
Begin
Write('Введите n: '); readln(n);
Write('Числа <span>Армстронга </span>для n=',n,': ');
if n=3 then
for i:=100 to 999 do begin
n1:=i div 100;
n2:=i mod 100 div 10;
n3:=i mod 10;
Armst:=(n1*n1*n1)+(n2*n2*n2)+(n3*n3*n3);
if Armst = i then write(Armst,' ');
end;
if n=4 then
for i:=1000 to 9999 do begin
n1:=i div 1000;
n2:=i div 100 mod 10;
n3:=i mod 100 div 10;
n4:=i mod 10;
Armst:=(n1*n1*n1*n1)+(n2*n2*n2*n2)+(n3*n3*n3*n3)+(n4*n4*n4*n4);
if Armst = i then write(Armst,' ');
end;
Writeln;
Readkey;
End.