Uses graphabc;
var
y: integer;
begin
for y:=0 to 25 do
setpixel (10,y,clred);
end.
Define ("pi",3.14);
По формуле через радиусы
$R = 10;
$rr = 4;
$RES = pi*(sqrt($R)-sqrt($rr));
echo "$RES";
По формуле через диаметры:
$D = 12;
$dd = 3;
$RES = ((pi/4)*(sqrt($D)-sqrt($dd)));
echo "$RES";
<em>// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Вводите:');
Delete(s,4,1); Delete(s,2,1);
Writeln(s)
end.
<u>Пример</u>
Вводите: Удаление пары символов
Уаение пары символов
Вы все сделали правильно. За исключением слета второго абзаца. Это исправил. Шестой абзац - у вас там создаются большие отступы между словами - это потому что изначально формат написанного выглядит как стихотворение (переносы строк). Я прилагаю 2 варианта - с сохранением отступов и без них. И еще у вас сказано, что для второго стиля нужны малые прописные буквы. Вы, возможно, поставили, но у меня отсутствует такой шрифт, поэтому вам придется изменить