PAscal abc.
<em><u>Проверка.</u></em>
введите кол-во элементов массива
10
-8 -12 10 14 -1 13 -9 14 3 11
сумма=41<span>
</span>
Var x,y:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if (x*x+y*y<=1)and(y>=x)and(y<=-x+1)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
<span>end.</span>
Программа (python 3.5), делающая то, что указано в условии:
from re import sub
s = '5' * 254
while ('2222' in s) or ('5555' in s):
if '2222' in s:
s = sub('2222', '5', s, 1)
else:
s = sub('5555', '2', s, 1)
print(s)
Получается 22255
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.
Мне кажется будет 5^5=3125 символов, если по частной формуле Хартли