Вероятнее всего ответ С будет неправильным, но это не точно.
Program qwer;
uses crt;
var s, r, d, l: real;
Begin
write('Площадь круга: ');
readln(s);
r := sqrt(s / 3.14);
d := r * 2;l := 2 * 3.14 * r;
writeln('Диаметр: ',d);
writeln('Длина окружности: ',l);
<span>End.</span>
1 5 2 3
Номера сетей или узлов (проще говоря, цифры, которые отделяет точка) должны быть не больше 256, следовательно и не могут быть 4х значными. Подбираем числа так, чтобы все сходилось
RGB24 это формат sRGB с 24 bits per pixel. Это значит что в одном пикселе содержится 24 бита. Тогда получается что размер файла будет равен 24*32*128=98304 бита=12228 байт или 12.228 килобайт (КВ)
Var s:string; c:char; i:integer;
begin
write('s = '); readln(s);
i:=1;
while (i+2<=length(s)) do
if(s[i]=s[i+1])and(s[i+1]=s[i+2])
then begin
c:=s[i];
while (i<=length(s))and(c=s[i]) do delete(s,i,1);
i:=1;
end
else i:=i+1;
writeln(s);
<span>end.</span>