Const N=10;
var i, b, s: integer;
a: string;
begin
readln(b);
a := inttostr(b);
for i := 1 to length(a) do
if (strtoint(a[i]) > s) then
s := strtoint(a[i])
else
s:=10;
if (s = 10) then writeln('No') else writeln('Yes');
<span>end.
Удачи =)</span>
1) Просто считаем формулы по порядку получаем В1=6
2) 2-В18
3) т.к. срзнач=5 и включает в себя интервал из 6 ячеек то мы можем найти сумму чисел этих ячеек 5*6=30
также мы значем сумму интервала ячеек+ячейка с2
т.е. С2+ С3:С8=47 отсюда С2=47-30=17
С2=17
4) просто считаем формулы получим:
А2=10 В2=30 С2=30 Д2=10
для этих значений подходит диаграмма под номером 4