1. составить блок-схему алгоритма определения объема v и площади поверхности s шара по задаваемому значению радиуса r. v=πd³/6, s=πd² , где d – диаметр шара.

Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется длина исходной цепочки символов; если она нечётна, то в исходной цепочке символов удваивается средний символ, а если чётна, то в начало цепочки добавляется символ 1. В полученной строке каждая цифра заменяется на следующую (1 заменяется на 2, 2 — на 3, и т. д., а 9 заменяется на 0). Получившаяся таким образом цепочка является результатом работы алгоритма.

Например, если исходной цепочкой была цепочка 356, то результатом работы алгоритма будет цепочка 4667, а если исходной цепочкой была 52, то результатом работы алгоритма будет цепочка 263.

Дана цепочка символов 35842. Какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды (то есть применить алгоритм к данной цепочке, а затем к результату вновь применить алгоритм)?

Применим алгоритм: 35842 (нечётная) → 358842 → 469953.

Применим его ещё раз: 469953 (чётная) → 1469953 → 2570064.

ответ: 2570064.

Объяснение:

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -