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>
Var m,d1,d2,dn,k:integer;
begin
write('Вес Винни-Пуха (г): ');
readln(m);
d1:=100; d2:=100;
dn:=100; k:=2;
while dn<=m do
begin
dn:=d1+d2;
d1:=d2;
d2:=dn;
k:=k+1;
end;
writeln('k = ',k,' dn = ',dn);
end.
Пример:
Вес Винни-Пуха (г): 900
k = 7 dn = 1300
1. Иерархия
2. Вершина
3. Взвешенный
4. Дерево
5. Карта
6. Схема
7. Граф
8. Семантическая-сеть
9. Дуга
10. Ребро
В полном ветвление если выполняется условие, то действие_1, а если не выполняется условие, то действие_2. Например:
Если условие то действие_1 в противном случае действие_2
В неполном ветвление выполняется только одна ветка, усли условие истинно
Например: Если условие то действие_1
Где чертеж, про который говорится в задании?