Условия существования треугольника - сумма 2ух сторон больше 3ей
var a,b,c:real;
e:boolean;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then e:=true;
writeln(e);
<span>end.
если что то не понятно пишите в комменты</span>
Проведем некоторые преобразования.
Наиболее вероятное предположение, что S2 - формула площади круга с диаметром Dr, а S1 - формула площади квадрата со стороной a и диагональю Dg.
В программа сравнивается диагональ квадрата и диаметр окружности и если диагональ меньше диаметра, выводится "да", в противном случае выводится нет. Это позволяет сделать предположение о следующей постановке задачи:
"Можно ли поместить брусок квадратного сечения с площадью S1 в полый цилиндр с площадью основания S2 ?". Или, как вариант, пройдет ли брусок в отверстие..
Program DemoSet;
uses crt;
var s:string;
i,k:integer;
begin
k:=0;
clrscr;
write('Введите произвольную строку =>');
readln(s);
writeln('Строка результат');
for i:=1 to length(s) do
begin
if not(s[i] in [1234567890] )then
begin
if s[i] in ['0'..'9'] then inc(k);
write(s[i])
end;
end;
writeln;
writeln('Количество цифр в строке ',k);
readln
end
A B C D
1 1 2
2 1 2 3 4
Ответ: Диаграмма №1