Если я правильно понял задание, то вот:
var d, p, n:Real;
begin
d := 0; p:= 1;
while (p <= 1000) do begin
read(n);
if (n >0) then d := d-n;
p := p*n;
end
writeln();
writeln('Разность: ', d);
end.
Первый вопрос:
<span>Ресурс — это
Ответ:
</span><span>запас, источник чего-нибудь
</span>
Второй вопрос:
<span>Массивы документов с зафиксированной на ней информацией называются
Ответ:
</span><span>информационными ресурсами
</span>
Третий вопрос:
<span>Закон, принятый в 2015 г., называется…
Ответ:
</span><span>«Об информации, информатизации и защите информации»</span><span>
</span>
program z1;
var
i,k:integer;
begin
k:=0;
i:=0;
while i <> 10 do begin
dec (k);
if (abs (k) mod 2 =1 ) and (k < 0) then
begin
writeln (k);
inc (i);
end;
end;
end.
20:100*20=4 рубля - налог в 20%
20-4=16 руб - осталось
16:100*10=1.6 рубля - 10% за место
16-1.6=14.4 руб - прибыль за 1 кг
14.4*30=432 руб - прибыль с одного куста в 30 кг
1000:432=2.3 куста
ответ - 3 куста надо посадить, чтобы получить прибыль в 1000 рублей, при средней урожайности 30 кг с куста
.................................