Составить прогу в паскале для решения : строитель - вопрос №98108921 от dhhfdghgxdyhfdfcc 02.05.2021 16:36

Question

Информатика: Составить прогу в паскале для решения : строитель положил в первый день 100 кирпичей. каждый следующий день он увеличивал количество кирпичей на z процентов от предыдущего дня (z — вещественное, 10 z 40). по данному z определить, после какого дня суммарное количество кирпичей за все дни превысит 1000, и вывести найденное количество дней d (целое) и суммарное количество кирпичей к (вещественное число).

dhhfdghgxdyhfdfcc · Answer

program stroitel;

var k, d, z: real;

begin

k:=100;

d:=1;

writeln ('Введите процент');

readln (z);

repeat

k:=k+((k/100)*z);

d:=d+1;

until k>1000;

writeln('кирпичей- ',k,'дней- ',d);

end.