Ответ: квадрат желтого цвета
Желтый,зеленый,красный, синий
Квадрат,ромб,треугольник и круг
Кажется так.
необходи из алфавита вычесть общее количество знаков алфавита.
program z1;
var a,b,c:string;
i,j,k,d,g:integer;
begin
writeln('Шифрование?1-да,0-нет');
readln(g);
writeln('Исходный текст ');
readln(a);
writeln('ключ');
readln(d);
c:='';
b:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
for i:=1 to length(a) do
for j:=1 to length(b) do
begin
If g=0 then k:=(j-d) mod 32 else k:=(j+d);
if k > 33 then k:=k-33;
if a[i]=b[j] then c:=c+b[k];
end;
writeln(c);
end.
Var n,i:integer; a,max,min:real;
begin
write('n = ');
readln(n);
readln(a);
max:=a; min:=a;
for i:=1 to n-1 do
begin
readln(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln('max = ',max:4:1,' min = ',min:4:1);
end.
Пример:
n = 5
8.4
2.7
3.0
9.1
4.8
max = 9.1 min = 2.7
53, 117, 245
сначала -7 + 4 = -3
потом -3 + (4*2) =5
потом 5 + (4*2*2)= 21
потом 21+ (4*2*2*2) =53
и т.д
для упрощения.................................................