Ответ:
ключ шифрования
Объяснение:
ключом шифруется и расшифровывается сообщение
1.
program _1;
var a,b,s:real;
begin
writeln('Вычисление площади прямоугольника.');
writeln('Введите исходные данные:');
write('Длина(см): '); readln(a);
write('Ширина(см): '); readln(b);
s:=a*b;
writeln('Площадь прямоугольника: ',s:5:2 ,' кв.ед.');
end.
2.
program _2;
var a,b,c,v:real;
begin
writeln('Вычисление объема параллелепипеда.');
writeln('Введите исходные данные:');
write('Длина(см): '); readln(a);
write('Ширина(см): '); readln(b);
write('Высота(см): '); readln(c);
v:=a*b*c;
writeln('Объем: ',v:5:2 ,' куб.см.');
<span>end.
</span>
3.
program _3;
var a,b,c,s:real;
begin
writeln('Вычисление объема площади параллелепипеда.');
writeln('Введите исходные данные:');
write('Длина(см): '); readln(a);
write('Ширина(см): '); readln(b);
write('Высота(см): '); readln(c);
s:=2*(a*b+a*c+b*c);
writeln('Объем: ',s:5:2 ,' кв.см.');
end.
4.
program _4;
var a,v:real;
begin
writeln('Вычисление объема куба.');
writeln('Введите исходные данные:');
write('Введите длину ребра (см): '); readln(a);
v:=a*a*a;
writeln('Объем куба: ',v:5:2 ,' куб.см.');
end.
5.
program _5;
var a,b,k1,k2,s:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена тетради(руб): '); readln(a);
write('Кол-во тетрадей: '); readln(k1);
write('Цена карандаша(руб): '); readln(b);
write('Кол-во карандашей: '); readln(k2);
s:= a*k1+b*k2;
writeln('Стоимость покупки: ',s:5:2 ,' руб.');
<span>end.
</span>
6.
program _6;
var a,b,k,s:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена тетради(руб): '); readln(a);
write('Цена обложки(руб): '); readln(b);
write('Кол-во комплектов: '); readln(k);
s:= k*(a+b);
writeln('Стоимость покупки: ',s:5:2 ,' руб.');
<span>end.</span>
100 101 102 110 111 112 120 121 122 200 201 202 210 211 212 220 221 222
Земледелец- это крестьянин, занимающийся земледелием, сельским хозяйством.
Животновод- это человек, работающий на ферме, занимается разведением и уходом за скотом.
Const n=11;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(16);
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('s=',s,' sr=',s/n:5:2);
<span>end.
Пример работы:
6 12 7 9 3 15 10 10 6 2 8
s=88 sr= 8.00<span>
</span></span>