Var
i, n, j, p, s: longint;
st: string;
b: boolean;
begin
s := 0;
b := false;
readln(n);
for i := 1 to n.ToString.Length do
s := s + strtoint(n.ToString[i]);
for i := 10 to n - 1 do
begin
st := i.ToString;
p := 1;
for j := 1 to st.Length do
p := p * strtoint(st[j]);
if(p = s) then begin b := true;writeln(i); end;
end;
if(b = false) then write('Нет');
end.
Вот полный список примитивов: circle, ellipse, line, polygon, polyline, rect. Соответственно, нужно выбрать так:
- arc
- ✓ circle
- helix
- ✓ polyline
- ✓ ellipse
- ✓ rect
- hyperbola
1) a)101101+1101101 = 10011010; b) 11010110-10101110 = 101000
471 в пятеричной системе счисления не может быть.
Var n, digit, ans : integer;
begin
read(n);
ans := 0;
while (n > 0) do begin
digit := n mod 10;
if ((digit = 1) or (digit = 3) or (digit = 9)) then
ans := ans + 1;
n := n div 10;
end;
writeln(ans);
<span>end.</span>
var answer: real;
x, y: integer;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
answer:=(x+y)/(x+1) - (x*y-12)/(34+x);
writeln(answer);
end.