Пошаговое объяснение:
По условию, центр окружности принадлежит оси абсцисс, то есть лежит на оси Х, следовательно, координата по оси У равна нулю. Обозначим координаты центра окружности как (х',0).
Построим вектора из центра окружности О до точек А и В. Модуль вектора - корень из суммы квадратов его координат.
ОА={-4-x';1}, |OA|=
OB={8-x';5}, |OB|=
Модули векторов равны, так как точки лежат на окружности и, следовательно, равноудалены от центра на расстояние радиуса.
Значит, координаты центра окружности - (3,0).
Находим радиус окружности R=|OA|=|OB|=√(4+3)^2+1=√50.
Составляем уравнение окружности:
Примечание: жирным шрифтом выделены вектора.
var sum,n:integer;
begin
writeln('Введите трехзначное число');
readln(n);
sum:=(n div 100)+(n div 10 mod 10)+(n mod 10);
writeln('Сумма цифр числа = ',sum);
end.
Объяснение построчно
var sum,n:integer; // Просим компьютер выделить в памяти переменные с именем sum и n типа integer(целые числа).
begin // Начало 'тела' программы
writeln('Введите трехзначное число'); // Выводим на экран текст 'Введите трехзначное число'
readln(n); // Вводим число с клавиатуры и записываем его в переменную n
sum:=(n div 100)+(n div 10 mod 10)+(n mod 10); // Суммируем цифры в нашем числе и записываем их сумму в переменную sum.
writeln('Сумма цифр числа = ',sum); // Выводим сумму цифр
end. // Конец 'тела' программы