У исполнителя Альфа две команды, которым присвоены номера:
1. прибавь 1
2. умножь на b
(b - неизвестное натуральное число; b ≥ 2) Выполняя первую из них, Альфа увеличивает число на экране на 1, а выполняя вторую, умножает это число на b. Известно, что программа 111211 переводит число 15 в число 128. Определите значение b.
uses graphabc;
procedure drawlight(x, y, r : integer; c : color);
begin
brush.color : = c;
circle(x, y, r);
end;
begin
randomize;
var v : = random(1, 3);
var(c1,c2,c3): =(clwhite,clwhite,clwhite);
case v of
1 : c1 : = clred;
2 : c2 : = clyellow;
3 : c3 : = clgreen;
end;
drawlight(window.center.x, window.height div 10 * 2, window.height div 7, c1);
drawlight(window.center.x, window.height div 10 * 5, window.height div 7, c2);
drawlight(window.center.x, window.height div 10 * 8, window.height div 7, c3);
end.
в паскале
pascalabc:
program f0rwardirop;
var r, x,y: real;
b: boolean;
begin
writeln('* alphaeus is *');
write('ok, введите r ='); readln(r);
write('теперь введите х ='); readln(x);
write('и, наконец, введите y ='); readln(y);
if x> =0 then
if (x*x+y*y < = r*r) then b: = true else b: =false
else
if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;
if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')
else writeln('точка (',x,',',y,') не принадлежит закрашенной области');
end.