Ребята Найдите ошибку в программе:
program ;
var a,b,c,d,f,p:integer;
begin
writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
отсутствует имя программы
имя программы написано не правильно
отсутствует раздел переменных
2. Найдите ошибку в программе:
program Prim 2 1;
var a,b,c,d,f,p:integer;
begin
writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c+d+f;
writeln('p=',p); в
readln
end.
отсутствует раздел переменных
имя программы написано не правильно
отсутствует имя программы
3. Найдите ошибку в программе:
program Prim_2_1;
begin
writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
имя программы написано не правильно
отсутствует раздел переменных
отсутствует ввод данных
4. Найдите ошибку в программе:
program Prim_2_1;
var a,b:integer;
begin
writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
не все переменные описаны в разделе описания переменных
отсутствует раздел переменных
отсутствуют вычисления в программе
5. Найдите ошибку в программе:
program Prim_2_1;
var a,b,c,d,f,p:integer;
begin
writeln('Введите 5 численных значений:');
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
отсутствует команда начала программы
отсутствуют вычисления в программе
отсутствует раздел ввода данных
6. Найдите ошибку в программе:
program Prim_2_1;
var a,b,c,d,f,p:integer;
begin
writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
writeln('p=',p);
readln
end.
отсутствует команда завершения программы
отсутствует команда начала программы
отсутствуют вычисления в программе
7. Найдите ошибку в программе:
program Prim_2_1;
var a,b,c,d,f,p:integer;
writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
допущена ошибка в операторе присваивания
отсутствует команда завершения программы
отсутствует команда начала программы
8. Следующий алгоритм в результате выполнения программы находит:
program Prim_2_3;
var a,b,c,d,f,p:integer;
begin
writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c;
writeln('p=',p);
readln
end
находит сумму 4 чисел
находит сумму 3 чисел
находит сумму 5 чисел
9. Найдите ошибку в программе:
program Prim_2_1;
var a,b,c,d,f,p:integer;
begin
writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p=:a+b+c+d+f;
writeln('p=',p);
readln
end.
допущена ошибка в операторе присваивания
отсутствует команда начала программы
отсутствует команда вывода результата на экран компьютера
10. Следующий алгоритм в результате выполнения программы находит значение выражения:
program Prim_2_2;
var y,x:integer;
begin
writeln('Введите x:');
readln(x);
y:=15*x*x*x+6*x*x+18*x-29;
writeln('y=',y);
readln
end.
y=15x+6x2+18x-29
y=15x3+6x2+18x-29
y=5x3+6x2+18x-9
Требуется найти максимум этого выражения (т.е. на самом деле - максимум суммы квадратов) при условии, что сумма всех ni равна N и ni - натуральные числа.
Если K = 1, то всё очевидно - ответ N(N - 1)/2. Пусть K > 1.
Предположим, n1 <= n2 <= ... <= nK - набор чисел, для которых достигается максимум, и n1 > 1. Уменьшим число вершин в первой компоненте связности до 1, а оставшиеся вершины "перекинем" в K-ую компоненту связности. Вычислим, как изменится сумма квадратов:
Поскольку по предположению n1 > 1 (тогда и nK > 1), то сумма квадратов увеличится, что противоречит предположению о том, что на выбранном изначально наборе достигается максимум. Значит, максимум достигается, если наименьшая по размеру компонента связности - изолированная вершина. Выкинем эту компоненту связности, останутся K - 1 компонента связности и N - 1 вершина. Будем продолжать так делать, пока не останется одна вершина, тогда получится, что во всех компонентах связности кроме последней должно быть по одной вершине.
Итак, должно выполняться
Подставив в исходную формулу, получаем
Это и есть ответ.