Программа может выглядеть так:
program Func;
uses Crt;
var a,b: integer;
rez, fa, fb: integer;
begin ;
ClrScr;
a:=4;
b:=-5;
fa:=3*sqr(a)+4*a-5;
fb:=3*sqr(b)+4*b-5;
Rez:=fa+fb;
WriteLn('f(4)=', fa);
WriteLn('f(5)=', fb);
WriteLn('f(4)+f(5)=', Rez);
ReadLn;
end.
,
Правильно D )) lol ())))))
Точки А и В - любые точки на плоскости.
Установить раствор циркуля равный заданному радиусу.
Установить ножку циркуля в точку А, провести окружность.
Установить ножку циркуля в точку В, провести окружность.
Есть ли точки пересечения?
Нет - искомой окружности не существует.
Да - Устанавливаем ножку циркуля в точку пересечения, проводим окружность.
(Точек пересечения может быть две, тогда можно построить две окружности. Или окружности могут соприкасаться в одной точке, тогда искомая окружность будет одна.)
Var n:integer;
begin
write('n = ');
readln(n);
writeln('цифры числа:');
writeln(n div 10);
writeln(n mod 10);
end.
Пример:
n = 38
цифры числа:
3
8
