Varn,k,a,b,c,g:integer;e:real;Beginwriteln('Количество яблонь: ');read(n);writeln('Содержание 1-ой яблони в рублях: ');read(k);writeln('Наценка на 1кг в процентах: ');read(g);a:=0;randomize;for c:=1 to n dobeginb:=random(20)+30;a:=a+bend;e:=k*g/100*a;writeln('Урожай составил ',a,' кг яблок.');writeln('Прибыль с проажи ',a,' кг яблок: ',e,' рублей.');end.
Ошибка которая вызывает проблемы
Ответ на ребус - информация
А истинно
В ложно
С ложно (у вершины дерева м.б. только 1 предыд.вер.)
Е- истинно
F-истинно
G -только волк и гусь
H- ложно
D-да(лошадь)
J-истинно
K-ложь
Можно в цикле for написать по возрастанию: for a:=1 to b или по убыванию: for a:=10 downto b