Дан квадрат со стороной А и круг радиуса R. Определить поместится ли квадрат в круг? При A=20, R=10, A=10, R=8
Дан прямоугольник со сторонами A, B и круг радиуса R. Определить поместится ли круг в прямоугольник при следующих данных

Написал, но должен предупредить.

Во-первых, программа принимает текст, независимо от того, сколько строк было введено, и "читать" она перестанет только после ввода символа с кодом 0, напечатать который можно сочетанием клавиш [email protected]

Во-вторых, ты выводишь результат в строку, но, на мой взгляд, из-за этого выходит какой-то bull sh, так что я использую на "Write()", а "WriteLine()". Ты же можешь поменять, если критично.

Код ниже

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace kekus3{
 class main {
  static void Main(string[] args) {
   string s = ""; char buff;
   while ((buff = (char)Console.Read()) != 0)
    s += buff.ToString();
   Console.WriteLine();
   for (int i = 0; i < s.Length; ++i)
    if (s[i] >= '0' && s[i] <= '9')
    Console.WriteLine(" {0} элемент - {1}", i+1, s[i]); Console.ReadKey();
  }
 }
}

Код выше

Procedure DigitReplace(Source,Replaced:integer; var Result:string);
  var
    SourceStr,ReplacedStr:string;
    MaxDigit:char;
    PosMax,i:integer;
begin
  Str(Source,SourceStr);
  Str(Replaced,ReplacedStr);
  MaxDigit:=' ';
  for i:=1 to Length(SourceStr) do
    if SourceStr[i]>MaxDigit then MaxDigit:=SourceStr[i];
  for i:=Length(SourceStr) downto 1 do
    if SourceStr[i]=MaxDigit then begin
       Delete(SourceStr,i,1);
       Insert(ReplacedStr,SourceStr,i)
       end;
  Result:=SourceStr
end;

var
   n,c:integer;
   r:string;

begin
   Write('Введите исходное число: '); Readln(n);
   Writeln('Введите число для замены: '); Readln(c);
   DigitReplace(n,c,r);
   Writeln('Результат: ',r);
end.