Program task;
var i,a:real;
begin
i:=-4;
while (i<=4) do begin
a:=(i*i*i)-(i*i)+16*i-43;
writeln(a:0:2);
i+=0.5;
end;
readln;
<span>end.</span>
Аудиофайл для колонок.
Видеофайл для монитора.
Текстовый файл для монитора.
Графический файл для монитора.
Скорее всего неверный подбор - принтер. Объясни свой вопрос поподробнее.
Задание во вложении. Задаем х на указанном промежутке. Строим y1 и y2. Выделяем все три столбца и строим точечную зависимость
Да. т.к. 7% от 200000 это 14000, следовательно объём древесины будет уменьшаться
1.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 10 <> 1) then c:=c+1
end;
if c>0 then writeln('YES')
else writeln('NO')
end.
2.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 3 = 0) then c:=c+1
end;
writeln(c)
end.