У вас есть гипотеза о том, что многие сказки на самом деле построены похоже. Для её подтверждения вам необходимо сравнить сказки по нескольким показателям. Одним из таких показателей являются указания к действию для героя.

Необходимо собрать 5 различных сказок, в которых существует план действий для героя, и записать его в виде блок-схемы. При этом должны быть как линейные алгоритмы, так и ветвящиеся.

В ответе прикрепите название сказки, само указание, а также его перевод в блок-схему.

var

i,j,s: integer;

x: array[1..8,1..8] of integer;

y: array[1..10,1..10] of integer;

begin

s: =0;

for i: =1 to 8 do

for j: =1 to 8 do

begin

readln(x[i,j]);

if i< =j then s: =s+x[i,j];

end;

writeln("сумма для x=", s);

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

begin

readln(y[i,j]);

if i< =j then s: =s+y[i,j];

end;

writeln("сумма для y=", s);

end.

значит так, используем единственную в информатике формулу

n=2^i

n-это количество символов в алфавите, значит n=64

64 это 2 в 6 степени, значит i=6 - это информационный объем одного символа, а нам надо найти информационный объем 3072 символа, значит

6*3072 = 18432 бита = 2304 байта

ну, в первом тексте информационный объем одного символа составляет

n=2^i

32=2^5

i=5 бит

во втором текте

64=2^6

i=6

значит, в 1,2 раза (6: 5=1,2)

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.