Какую задачу решает данная программа? Что вводится в данной программе?program n_7 var a, b, c:integer, ans:boolean, begin writeln ('Опредиление истинoсти высказывания о равнобедренном треугольнике'); write ('Введите значение a, b, c>>'); readln (a, b, c); ans =(a+b) or (a=c) or (b+c); writeln ('Треугольник с длинами сторона, b, c'является равнобедренным - 'ans); end.

Самая тяжелая профессия - быть человеком. Это действительно, самая тяжелая профессия, так как не каждый может быть им. Человеком не появляются - им становятся.

Человеком может стать каждый. Необходимо только выучиться им быть: вырасти, набратся опыта пожилым, а так же и сверстникам, и остальным. Оборонять слабых. Попытаться прожить жизнь, без вредных повадок. Не дерзить, почитать старших, почитать суждения иных, слушать, созидать и тому сходственное.

Я размышляю, меньше всего шансов стать человеком у тех, кто делает все напротив вышесказанному. Я встречал малюсенько истинных людей, их вообщем то, мало осталось, но время все меняет. Меняет окружающую среду, меняет технологии, меняет и людей.

Стать человеком, могут все без исключения, основное поверить, и не лениться.

ответ:1. var

a:array[1..7] of integer;

i:Integer;

begin

//заполнение массива

a[1]:=3;

a[2]:=8;

a[3]:=2;

a[4]:=0;

a[5]:=2;

a[6]:=1;

a[7]:=7;

//вывод массива

for i:=1 to 7 do

Writeln(a[i]);

end.

2. var

c:array[1..12] of integer;

i:Integer;

begin

//заполнение массива

for i:=1 to 12 do

begin

Writeln('Введите ',i,' элемент массива');

readln(c[i]);

end;

//вывод массива

Writeln('Массив');

for i:=1 to 12 do

Write(c[i],' ');

end.

3.var

s:array[1..15] of integer;

i:Integer;

begin

//заполнение массива

for i:=1 to 15 do

s[i]:=random(40);

//вывод массива

Writeln('Массив');

for i:=1 to 15 do

Write(s[i],' ');

end.

4.var

b:array[1..25] of Real;

i:Integer;

begin

//заполнение массива

b[1]:=3;

b[2]:=6;

for i:=3 to 25 do

b[i]:=(b[i-1]+b[i-2])/i;

//вывод массива

Writeln('Массив');

for i:=1 to 25 do

Write(b[i]:9:3);

end.

Объяснение: