Program DemoSet;
uses crt;
var s:string;
i,k:integer;
begin
k:=0;
clrscr;
write('Введите произвольную строку =>');
readln(s);
writeln('Строка результат');
for i:=1 to length(s) do
begin
if not(s[i] in [1234567890] )then
begin
if s[i] in ['0'..'9'] then inc(k);
write(s[i])
end;
end;
writeln;
writeln('Количество цифр в строке ',k);
readln
end
Гарнитуры наве волябвьчбвьлчсшрное
384
Каждое число умножается на два и прибавляется слагаемое, увеличивающееся вдвое
2х2+4=8
8х2+8=24
24х2+16=64
64х2+32=160
160х2+64=384
10бит 20бит 2байта 1010байтов 1Кбайт
В таких задачах необходимо математически сформулировать условия, которые строго ограничат выбранную область. Из рисунка видно, что x не может быть отрицательным (x >= 0), x <= 6, y <= 6. Также в первой четверти область ограничена окружностью, тут уже сложнее, если мне не изменяет память, то x*x+y*y<=6 (6 это радиус окружности). В четвертой четверти область задается уравнением прямой, и я совершенно не помню как они составляются (y = kx + b вроде?), поэтому ваша задача самостоятельно разобраться с этой прямой, условие будет вида y>=k*x+b.
Когда условия будут сформулированы, останется лишь записать программу, примерный вид программы будет следующим:
var x,y : integer;
begin
readln(x,y);
if (x >= 0) and (x <= 6) and (y <= 6) and (x*x+y*y <= 6) {and (еще одно условие)}
writeln('true')
else
writeln('false');
readln;
end.