Дан радиус окружности. Составь программный код, кото- рый определит длину окружности (L) и площадь крута (S), Здесь

π=3,14 (рис. 2).

Теоретический материал

Пример Результат

5

La 31.4

О.

центр окружности

S 78.4

градиус окружности

L - длина окружности

S - площадь крута

d - диаметр окружности​ (На языке Пайтон)

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.

qbasic не знаю, знаю только вижуал бэйсик

for i = 1 to 10

  a(i) = i

next i

for i = 1 to 5

  b = a(10+1-i)

  a(10+1-i) = a(i)

  a(i) = b

next i

s = 0;

for i = a to b

  if (i mod 2 =1) and (i mod 3 = 0) then

          s = s + 1

  end if

next i

var a: array[1..100] of integer;

begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i: = 1 to 100 do

      if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}

      else a[i]: =2*random(100);

end.

есличто непонятно - пиши в сообщения, растолкую

350*200=70000 пикселей

65кбайт=65*1024=66560 байт=66560*8=532480бит

532480/70000= 7.6 т.е 7 целых бит на пиксель

с 7 бит можно закодировать 2^7=128 цветов