program rastirostok;
var h: double; //в этой переменной храним высоту
var i: integer; // это для счетчика дней
var s: string;
begin
i : = 0;
h: =0.5;
while(h< =32) do
begin
h: = h + 0.4*h;
i: = i+1;
writeln(h: 15: 2);
end;
str(i,s);
writeln('количество дней: '+s);
str(h: 15: 2,s);
writeln('высота ростка: '+s);
end.
в итоге успеет за 13 дней вырасти
расклад по дням и итог
0.70 0.98 1.37 1.92 2.69 3.76 5.27 7.38 10.33 14.46 20.25 28.35 39.69 количество дней: 13 высота ростка: 39.69Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу, которая выполняет "сжатие массива" – заполняет все копии уже ранее встречавшихся элементов нулями и переставляет все нулевые элементы в конец массива. при этом все оставшиеся элементы располагаются в начале массива в том же порядке, что и в исходном массиве. входные данные первая строка содержит размер массива n . во второй строке через пробел n чисел – элементы массива. гарантируется, что 0 < n ≤ 10000 . выходные данные программа должна вывести в одну строчку все элементы получившегося массива, разделив их пробелами. примеры входные данные 6 0 1 2 1 2 3 выходные данные 1 2 3 0 0 0