задание в Нужно чтобы вышла поверхность эллипсоида на графике в экселе.

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.

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

1 непрерывный (сигнал)

2 ( происходит его) оцифровка

3 дискретный, цифровой (сигнал)

4  (называется) глубиной кодирования звука

5 (расчитать) информационный объем файла

6 (N-это) количество уровней громкости звука

7 (І-ЭТО) глубина кодировки звука

8 (зависит от) частоты дискретизации

9 глубины звука (за) секунду

10 (V- это) - частота дискретизации измеряется в герцах

(f -это) - глубина дискретизации измеряется в битах

(t-это) -время звучания или записи измеряется в секундах

(К определяет количество) каналов

если моно к= 1, если стерео к= 2, если квадро к= 4

Объяснение: