Question

Напишите пожалуйста программу на языке Паскаль

Answer 1

Даны три натуральных числа: r1, r2, L... PascalABC.NET

c666188a1273a67b75d9ed0e8f4cd35d.pas

Answer 2

program natur;
uses crt;
var r1, r2, l:Integer;

begin
Writeln('Введите R1, R2, L');

Readln(r1, r2, l);

if (r1+r2) > l then Write('Окружности имеют 2 общие точки');

if (r1+r2) = l then Write('Окружности имеют 1 общую точку');

if (r1+r2) < l then Write('Окружности не имеют общих точек');

if (r1=r2) and (r1=l) then Write('Окружности совпадают, все их точки - общие);

readln;
end.

На турбопаскале. В принципе и на АВС должно работать

c666188a1273a67b75d9ed0e8f4cd35d.pas