На первом листе написан прайс.
На "Сортировка, фильтр" отсортированный и отфильтрованный список.
Решение смотри во вложении.
Uses Crt,GraphABC;var i,n,q,c:integer;beginhidecursor;Writeln('Введите количество досок N:');Read(n);clearwindow;For I:=1 to n dobeginc:= clyellow;SetPenColor(c);SetPenWidth(2);q:=40*i;MoveTo(100+q,340);LineTo(100+q,130);LineTo(120+q,100);LineTo(140+q,130);LineTo(140+q,340);LineTo(100+q,340);floodfill(100+q+10,200,c);<span>end;</span>
1. Не знаю, как совместить стороны и диагонали в одном решении, сделал нахождение по диагоналям.
var d1, d2, S: real;
begin
write('Введите диагонали d1 и d2');
readln(d1, d2);
if(d1>0) and (d2>0) then
begin
S:=(d1*d2)/2;
writeln('Площадь равна: ', S)
end
else
writeln('Условия неверны!')
<span>end.
Чтобы написать, достаточно знать основы паскаля. Если есть вопросы к какой-либо строке - напиши.
2. </span><span>16*sqr(sqr(x))-(sqrt(x))</span>
<em>var a, b, c :integer;</em>
<em>begin</em>
<em> read (a, b);</em>
<em> c:=a;</em>
<em> a:=b;</em>
<em> b:=c;</em>
<em> write (a, b);</em>
<em>end.</em>
Задание 11
Чтобы упростить подсчет разделим на две подзадачи
1) кол-во путей А->Г
2) кол-во путей Г->М
1) =3
АБГ
АГ
АДГ
2) =11
ГВИМ
ГВЕИМ
ГВЕМ
ГВЕКМ
ГЕИМ
ГЕМ
ГЕКМ
ГЖЕИМ
ГЖЕМ
ГЖЕКМ
<span>ГЖКМ
ответ: 3*11=33
Задание 13
ПРАВИЛА:
1) В конце A,B,C
2) В начале B,D,C и нет в конце
3) В середине A,C,E,B и нет в начале
CBB подходит под все правила
EAC не подходит из-за правила 2
CAA </span>подходит под все правила<span>
BCD </span>не подходит из-за правила 1<span>
CAB </span>подходит под все правила<span>
BCB </span>не подходит из-за правила 2<span>
BCC </span>подходит под все правила<span>
ABC </span>не подходит из-за правила 2<span>
CBA </span>подходит под все правила
Ответ: 5 цепочек созданы по правилам