Даю 40 баллов.
Какая задача решается по следующей программе? Каков будет результат решения? Протестировать код программы в Паскаль-приложении. На проверку прислать скрин кода с результатом выполнения программы.
Program Nest;
var A, B,C:integer;
begin
readln(A,B);
C:= (A+B)*(B-A);
writeln(C);
end.
Какая задача решается по следующей программе? Каков будет результат решения? Протестировать код программы в Паскаль-приложении. На проверку прислать скрин кода с результатом выполнения программы.
Program Nest;
var A, B,C:integer;
begin
readln(A,B);
C:= (A+B)*(B-A);
writeln(C);
end.
Answers & Comments
Verified answer
Получится разность квадратов, т.е. B'2 - A'2