Var
p:char;
s,a,b:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите знак действия (+ - * /)');
readln(p);
case p of
'+': s:=a+b;
'*': s:=a*b;
'/': s:=a/b;
'-': s:=a-b;
end;
writeln(s);
end.
Я не знаю как это сделать в паропаскале, но могу лишь чуть-чуть подтолкнуть. Нужно сотавить уравнение круга (x-a)^2+(y-b)^2=r^2;
Затем вместо х и y подставить координаты точки в получившееся уравнение, три случая:
*если то что слево<то что справо, то точка внутри окружности
*если то что слево уравнения == то что справа то на окружности
* иначе вне окружности
Предложение: «I am going at home. They are going at home too.»
<span>Массив строк: [‘i’, ‘am’, ‘going’, ‘at’, ‘home’, ‘they’, ‘are’, ‘too’]</span>
1) 512=2^9; - 9 бит 1 пиксель после сжатия;
4096=2^12 - 12 бит 1 пиксель до сжатия
2) 12/9=4/3 - каждый пиксель после сжатия уменьшит свой размер в (4/3) раза
3) 1050*4/3=350*4=1400 (Кбайт)