Var q,i,s:integer;
begin
readln(q);
s:=0;
i:=0;
while s<q do
begin
i:=i+1;
s:=s+i;
end;
if s=q then writeln('Страница = ',i+1)
else writeln('Ошибка ввода');
end.
Пример:
5
<span>Страница = 6</span>
Если возникнут вопросы или ошибки в ходе работы программы, пиши в комментариях.
Задание 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 цепочек созданы по правилам
Все четырёхугольники кроме треугольника.
стороны равны в- первом, второй ряд вторая фигура,и квадрат