Шків діаметром 16 см робить 300 обертів за 3 хв. Визначте частоту обертання шківа і яка швидкість рівномірного - id82796720200805 от temka2013 05.08.2020 18:14

Question

Другие предметы: Шків діаметром 16 см робить 300 обертів за 3 хв. Визначте частоту обертання шківа і яка швидкість рівномірного руху точок обода цього шківа?

temka2013 · Accepted Answer

var n,x,k: integer;

//Функция нахождения суммы цифр числа n
function sum(n: integer): integer;
var s: integer;
begin
  s:= 0; //в начале сумма равна 0
  while (n>0) do //Пока число положительное выполняем цикл
    begin
      s:= s+n mod 10; //Находим остаток от деления числа n на 10, суммируем
      n:= n div 10; //Находим целую часть от деления числа n на 10
    end;
  sum := s;
end;

begin
  readln(n);
  x:= n;
  k:= 0;
  while (x>0) do //пока число положительное продолжаем выполнять цикл
    begin
      x:=x-sum(x); //от числа отнимаем сумму его цифр
      inc(k); //увеличиваем счетчик
    end;
  writeln('k=', k);
end.

Шків діаметром 16 см робить 300 обертів за 3 хв. Визначте частоту обертання шківа і яка швидкість рівномірного руху точок обода цього шківа?

MOGZ ответил