Question

СРОЧНО!!!Составить программу Паскаль Чтобы сделать бусы, ювелир взял нить длиной d и жемчужины радиуса R.
Определить, сколько жемчужин он сможет нанизать на эту нить.

Answer 1

Program abc;
Var   d, R, n: real;
Begin
    Writeln('Введите длину нити: ');
    Read(d);
    Writeln('Введите радиус жемчужин: ');
    Read(R);
    n:= d/R;
    n:= int(n);
    Writeln('Поместится: ', n, ' жемчужин');
end.

Answer 2

Росток появляется из земли, начинает расти, прибавляя в росте 40% от роста в предыдущий день. Нормальный рост равен 32см. Успеет ли росток за 13 дней набрать нормальный рост, если в первый день его высота 0,5см. Если не успеет, то посчитайте, за сколько дней он вырастет до нормы