Да. т.к. 7% от 200000 это 14000, следовательно объём древесины будет уменьшаться
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
Единственный возможным вариантом считаю, обращение в техническую поддержку. Там процедура не особо сложная, возможно спросят: имя аккаунта, когда создан, что написано в профиле, какая была почта, старый телефон, место откуда последний раз заходил. Но восстановлению подлежит.
Если у Марии было 3 собаки, то сколько их стало, когда Мария отдала 1 собаку Маше?
почему бы тебе не закинуть все в одно задание?)
не первый раз тебе пишу уже)
program p_4;
var
i, n, count: word;
begin
readln(n);
count := 0;
for i := 1 to n do begin
if n mod i = 0 then inc(count)
end;
writeln(count)
end.