ВЫПОЛНИТЕ ЗАДАНИЕ ПО ИНФОРМАТИКЕ НУЖНО
Составить алгоритм и предоставить блок-схему алгоритма для решения следующей
задачи:
Вычислить объем круглого конуса.
Для вычислення следует воспользоваться
формулой
​

1. Современный вариант

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
  var n:=Random(-100,100);
  Writeln('В числе ',n,' количество разрядов равно ',
    abs(n).ToString.Length)
end.

Тестовое решение:
В числе -40 количество разрядов равно 2

2. Школьный вариант (понятный большинству учителей)

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
var
  n,k:integer;
begin
  Randomize;
  n:=Random(201)-100;
  k:=1;
  Write('В числе ',n,' количество разрядов равно ');
  n:=abs(n);
  while n>0 do begin
    n:=n div 10;
    if n>0 then Inc(k)
    end;
  Writeln(k)
end.

Тестовое решение:
В числе -5 количество разрядов равно 1

Если правильно расставить отступы, то алгоритм должен вывести это:
Ира съел(a) молоко.

#Programm created by lagov Gleb
#This programm is generator random wordsXD
name = ['Глеб', 'Артем', 'Ира', 'Варя', 'Андрей']
glagol = ['выпил(a)', 'съел(a)', 'купил(а)', 'укусил(а)', 'пнул(а)']
predmet = ['молоко', 'дверь', 'велосипед', 'лестницу', 'XBOX', 'PlayStation']
from random import randint
def pick(words):
      num_words = len(words)
      num_picked = randint(0, num_words - 1)
      word_picked = words[num_picked]
      return word_picked
print(pick(name), pick(glagol), pick(predmet), end='.\n')
input()